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ABSTRACT 


In this thesis, we will give our discovery of original symmetric presentations of several 
important groups. We have investigated permutation and monomial progenitors ae 
OP 8? DO OPO Be es OP aS 2 an 
3° tm (24 : (2x 5)). The finite images of the above progenitors include the Mathieu 
sporadic group Mjz, the linear groups L2(8) and L2(13), and the extensions S¢ x 2, 
28 : .L2(8) , and 2’ : .A5. We will show our construction of the four groups $3, L2(8), 
L9(13), and Sg x 2 over 93, 27, $3 : 2, and Ss, by using the technique of double coset 
enumeration. We will also provide isomorphism types all of the groups that have appeared 
as finite homomorphic images. We will show that the group L2(8) does not satisfy the 
conditions of Iwasawas Lemma and that the group L2(13) is simple by Iwasawas Lemma. 


We give constructions of M22 x 2 and M22 as homomorphic images of the progenitor S¢. 
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Chapter 1 


Basic in Groups 


In this chapter we will define the group and the permutation. Then we will introduce 
some different groups with some examples about them. For example, we will talk about 
the symmetric group, alternating group, dihedral group, and the general linear group. 


On the other hand, we will give some properties and relation about groups. 


1.1 Permutation of Groups 


Definition 1.1. [f X is a nonempty set, a permutation of X is a bijectiona: X > X. 
We denote the set of all permutation of X by Sx. 


Lemma 1.2. Let S' be a set. 


1. Let f and g be two permutations of S. Then the composition of f and g is a 


permutation of S. 
2. Let f be a permutation of S. Then the inverse of f is a permutation of S. 


Definition 1.3. A permutation a € S is even if it is a product of an even number of 
transpositions; otherwise, a is odd. 
1.2 Groups 


Definition 1.4. A group is a set G together with a binary operation (a,b) —>ax*b: 
GxG-—>G satisfying the following conditions: 


1. (Associativity) for all.a,b,c € G, (a* b)*c=ax (bxCc). 


2. (Existence of a neutral element) there exists an element e € G such that 


axe=a=exa, forallacG. 


3. (Existence of inverses) for each a € G, there exists and € G such that 


Z 


axa=e=a*a. 


We usually abbreviate (G,*) to G. Also, we usually write ab for a*b, 1 or Id for e, and 
a! for &. There is no requirement that a*b = ba for all a,b € G. If this property 


(commutative) does hold, we say that G is abelian. 
Definition 1.5. Symmetric Group: 


The set Sx of bijections p: X > X from X to itself forms a group under composition 
whose identity element is the identity function y(x) = x, called the symmetric group 
of X =1,2,..,n. The elements of Sx are usually called permutations, and the identity is 
the trivial permutation. 

Since X is set with 1,2,..,n elements imply Sx, we define Sx by S, which called the 
symmetric group with n litters. We can find the order of S, by having the factorial of n. 
Otherwise, S;, is non-ablian group because p(xy) 4 y(yx) for all x,y © X 


Example 1.6. Suppose we have the group S3 as symmetric group send X = 1,2,3 to 
itself. Find all the element to S3 and its order? 

We have S3 is a group of 6 elements, and the elements of S3 will be e, a = (1,2,3), 
a? = (1,3, 2), b = (2,3), ab = (1,2), and a?b = (1,3). 


Definition 1.7. Alternating Group: 


The alternating group is that group which have even permutations of n degree; for all 
n>1, we denote that by An. We can generate that by saying An is the subgroup of S;, in 


n) 
order of that the order of An is 5 80 it will be all the even permutation in Sy. 


Example 1.8. Find the order and all the elements of the group A3. 

We can see that the order of A3 is 8, so the group A3 has 3 elements the two 3-cycles 
and the identity which are e, a = (1,2,3), and a? = (1,3,2). As what we say before it is 
clearly that A3 is subgroup of S3, and we defined that by Az < $3. 


Definition 1.9. Dihedral Group: 


The dihedral group D,, or D2, for (2n > 4) is the group of order 2n which is 


generated by two elements s and t such that 
SS Pats and ist Se: 


Note that Don is not abelian for alln > 3, while D4 is the 4-group V. 
Otherwise, Dy can be defined to be the subgroup of Sn generated by r: i —+i+1 (mod n) 


and s:i1+>n+2-—i(mod n). 


For example, the order of the dihedral group D3 is 6, and the elements of the 
group are to: bexe; a= (15.2); b= (253), eb-= (1, 3,2), ba = 1, 2,3), aba: = (138). By 
comparing between the results of example 1.1 and this example, we can see clearly that 
S3 and D3 have the same elements and the same orders. So, we can say that D3 is 


symmetric subgroup of 53. 
Definition 1.10. General Linear Group: 


Let F be a field. The n x n matrices with coefficients in F and nonzero determinant 
form a group GL, (Ff) called the general linear group of degree n. For a finite 
dimensional F'-vector space V, the F-linear automorphisms of V form a group GL(V) 
called the general linear group of V. Note that if V has dimension n, then the choice of 
a basis determines an isomorphism GL(V) > GL,,(F) sending an automorphism to its 


matrix with respect to the basis. 


Definition 1.11. The number of elements of a group (finite or infinite) is called its 
order. We will use |G| to denote the order of G. 


Definition 1.12. The order of an element g in a group G is the smallest positive 
integer n such that g” =e. (In additive notation, this would be ng = 0). If no such 
integer exists, we say that g has infinite order. The order of an element g is denoted by 


re 


Definition 1.13. Let a be a fixed element of a group G. The centralizer of a in 
G, Ca(a), is the set of all elements in G that commute with a. In symbols, Cg(a) = 
{g € Glga = ag}. 


1.3. Subgroup 


Definition 1.14. A nonempty subset S of a group G is a subgroup of G if s © G implies 
s l€G and s,t€G imply st €G. 


Definition 1.15. A subgroup K < G is a normal subgroup, denoted by K <G, if 
gKg-! =K for everyg €G. 


Definition 1.16. If x € G, then a conjugate of x in G is an element of the form axa7! 


for some a € G; equivalently, x and y are conjugate if y = ya(x) for some ae G. 


1.4 Cyclic Groups 


Definition 1.17. A group G is called cyclic if there is an element a in G such that 
G = {a"|n € Z}. Such an element a is called a generator of G. We may indicate that G 
is a cyclic group generated by a by writing G = (a). 

Theorem 1.18. Theorem (Cayley, 1878): 


Every group G can be imbedded as a subgroup of Sg. In particular, if |G| =n, then G 


can be imbedded in Sy. 


1.5 Group Homomorphisms 


Definition 1.19. Let (G,*) and (H,°) be groups. A function f :G— H is a homomor- 
phism if, for alla,b€ G, f(a*b) = f(a)o f(b). An isomorphism is a homomorphism 
that is also a bijection. We say that G is isomorphic to H, denoted by G = H, if there 


exists an isomorphism f :G— H.An isomorphism f :G— G is called automorphism. 
Definition 1.20. An automorphism of a group G is an isomorphism p:G—o3>G. A 
subgroup H of G is called characteristic in G, denoted by H char G, if p(H) = H for 
every automorphism y of G. 

Definition 1.21. Let f: G— H be a homomorphism, and define kernel f 

={aeG: f(a) =1}, and image f = {he H:h= f(a)forsomea € G}. 

Theorem 1.22. (First Isomorphism Theorem (Jordan, 1870)) Let ¢ be a group homo- 
morphism from G to G. Then the mapping from G/Kerd to $(G), given by gKerd > 
o(g), 7s an isomorphism. In symbols, G/Kerd = $(G). 


1.6 Coset 


Definition 1.23. Let G be a group and let H be a subset of G. For any a € G, 
the set {ah|h € H} is denoted by aH. Analogously, Ha = {hal|h € H} and aHa™! = 
aha-'|h € H. When H is a subgroup of G, the set aH is called the left coset of H inG 
containing a, where as Ha is called the right coset of H in G containing a. In this case, 
the element a is called the coset representative of aH (or Ha). We use |aH| to denote 


the number of elements in the set aH, and |Ha| to denote the number of elements in Ha. 


If S < G, then the index of S in G, denoted by [G: S$], is the number of right 


cosets of S in G. 


Theorem 1.24. (Lagrange) If G is a finite group and S < G, then |S| divides |G| and 
[G : S] =|G|/|S|. 


Definition 1.25. If X is a set and G is a group, then X is the G-set if there is a 
functiona:Gx X + X (called an action), denoted by a: (g,x) > gx, such that : 


1. lu=«a for alla € X; and 
2. g(hx) = (gh)x for allg, he G andre X. 


One also say that G act on X. If |X| =n, then n is called the degree of the G-set X. 


Chapter 2 


Extensions of Groups and 


Relations 


In this chapter we will offer to the reader the definitions of extensions of groups 
with given some examples. Then we will show other type of product which is the wreath 
product. Finally, we will give some ways to find relations such as the first order relation 


and the Lemma. 


2.1 Extensions of Groups 


The Direct Product 


Definition 2.1. If H and K are groups, then their direct product, denoted by H x K, is 
group with elements all ordered pairs (h,k), whereh € H andk € K, and with operation 
(h, k)(h, k) = (hh, kk). 

It is easy to check that H x K is group: the identity is (1,1); the inverse (h,k)~! is 
(h-+,k-+). Notice that neither H nor K is a subgroup of H x K, but H x K does 
contain isomorphic replicas of each, namely, H x 1 = {(h,1):he H} and1x Kk = 
{(1,k): ke Kk}. 


Theorem 2.2. Let G be a group with normal subgroups H and kK. If HK = G and 
HN K=1, thnG2=Hxk. 


Corollary 2.3. [f[G=Hx K, thenG/(H x 1)2K. 


Semi-direct Product 


Definition 2.4. A group G is a semi-direct product of K by Q, denoted byG = K : Q, 
if K<AG and K has a complement Q; = Q. One also says that G splits over K. However, 
Q, is a normal subgroup, then G is the direct product K x Q}. 


A progenitor is a semi-direct product of the following form: 
P22": N = {rw|a € N,w a reduced word in the ¢; . 


Where 2*” denotes a free product of n copies of the cyclic group of order 2 generated by 
involutions t; for 7 = 1,...,n; and N is a transitive permutation group of degree n which 
acts on the free product by permuting the involutory generators. 


Central Extension 


Definition 2.5. A central extension of K by Q is an extension G of K by Q with 
K< Z(G). 


2.2 Relations 


A progenitor P = m*" : N is infinite. In order to find finite homomorphism images. We 
factor it by appropriate relations. In this part we will introduce two possible ways to 
get relations which can help the reader to find the homomorphism images for any 


progenitors. 


The First Order Relation 


In order to find the first order relations, we need to find a presentation of the progenitor 
G=m*": N. New we find the first order relation. Then, we will factor the progenitor 
by finding the classes of N. We compute the centralizers of all classes non-identity and 
the orbits of all the centralizers, then we will create that first order relation from those 
orbits. We will give some examples from groups which we will talk about it in more 


details in chapter 4. However we use MAGMA to give all those steps. 


Example 2.6. The Progenitor 2" : (2 2") 
In order to state the steps of the first order relations we use a presentation of the progen- 


itor G =2*° : (2¢ 24). We will talk about this later in chapter 4. 


S:=Sym(8); 

aa:=S! (2, 5)(6, 7); 

bora! C12) (8, TAB) 6s. Bs 

COr=Si- C1, SIC; 6G. 6a. 

ad2=S! (13-200, 6), 5.7; 8): 

eer=S! (1,.4)C, 5)(3,. 8)(6, DD; 
N:=sub<S/aa,bb,cc, dd, ee>; 

G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2,b°2,c°2,d°2, 
e°2,b°a=b*e, c a=c, c “b=c*e, d a=d*e, dad b=d,d~c=d, ea=e 
,e b=e,e-c=e,e-d=e,t~2, (t,a), (t, b*d)>; 
C:=Classes(N); 

C; 

Conjugacy Classes of group N 


[1] Order 1 Length 1 
Rep Id(N) 
[2] Order 2 Length 1 


Rep (1, 4)(2, 5)(3, 8)(6, 7) 


[3] Order 2 Length 2 
Rep (1, 2)(8, 7) (4, 5)(6, 8) 


[17] Order 4 Length 2 
Rep Cl. 6, hy Tay 8 a 58) 


C2:=Centraliser(V,N!(1, 4)(2, 5)(3, 8)(6, 1); 
C3:=Centraliser(N,N!(1, 2)(3, DC, 5)(6, 8); 


C17:=Centraliser(N,N!(1, 6, 4, 7) (2, 8, 5, 3)); 
Set(C2); Orbits(C2); 
Set(C3); Orbits(C3); 


Set(C17); Orbits(C17); 


Since we let t to be t1. Then, we find the following from the orbits. 


Orbits (C2)= GSet{@ 1, 2, 3, 4, 5, 6, 7, 8 G@ 
The relation has to be (ext) “f 
Orbits (C3)= GSet{@ 1, 2, 5, 3, 4, 7, 6, 8 GQ} 
The relation has to be (b*t)7j 


Orbits(C17= GSet{@ 1, 6, 2, 4, 8, 5, 7, 3 @ 
The relation has to be (ax*xc*d*t)“r 


After we find the first order relations, we will add them to the presentation of the progen- 
itor and run it in MAGMA to find some homomorphic images. We also write relations 


based on the following lemma. 


Lemma 2.7. (Curtis(page58)) NM (ti,t;) < Cn(Nij), where Ni; denotes the stabilizer 
in N of the two points i and j. 


In this case we will factor the progenitor G = m*" : N by finding the point stabilizer of 
7 and j, N;;, in N. In order to create relations we will let t be t;. According to the 
above lemma, the stabilizer is if x € N;; such that it sends i + j and j — 7 then we 
have (x * t;)" = 1, where m is a positive integer. Also, if y € Nj; fixes 7 or j the relation 
(t;* le = y. We add then we try these relations in the presentation of the progenitor 


to get the homomorphic images. 


Example 2.8. The Progenitor 2" : (2 2") 


In this ecample we let t be t; and we will find the stabilizer N12. 


> N12:=Stabiliser(N, (1,2})); 
> N12; 
Permutation group N12 acting on a set of cardinality 8 
Order = 4 = 2°72 
(3 -6)(65 7) 
(1, 2°03, Nh, 5)(6, 8) 


We know that the element (3, 8)(6, 7) is bx d, and the element (1, 2)(8, 7)(4, 5)(6, 8) 


is b, so the relations have to be (t* t°)* = bd and (b*t)™ =1 respectively. 
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Chapter 3 


Wreath Product of Permutation 
Groups 


Definition 3.1. Let H and K be permutation groups on X and Y, respectively. Let 
Z=xX x/Y, define the permutation groups on Z. Called the wreath product of H by K, 
given by Hi. K or H Wr Kk. 

Let y € H and y be the fixed element of Y. Define by, 


(x,y) > ((x)7,y) 
(x,y1) +> (2,91), fy AY 
Letk € K, define by k*(x,y) > (a, (y)k). 


yy) = { 


Soh. 2 275 ts 


We consider the Permutation Wreath Product 2*° : Zo? Zs. 
The order of this group is 2.3 = 24. 
Suppose, X = {1,2}, 
bee es eee ae 
H = Zp, = {e,(12)} , 
K = Z3 = {e, (345)} , 
y= (12), 
The 7 = XX Y = 41,3). 1, 4),.(155),(2, 3s (24), (235) 
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We label the elements of Z as follow: 


1) > (1,3) 
2) (1,4) 
3) >(1,5) 
4) (2,3) 
5) (2,4) 
6) (2,5) 


We will use the function y(y) to compute the images of elements of Y, we will try all of 


them. 
Starting with y(3) we found that, We see from the above table that 1 goes to 4 and 4 


Table 3.1: 7(3) 
The Permutation (3) | The Label 
(1,3) > (2,3) |1—344 
(1,4) > (1,4) | 242 
(1,5) 3 (5) | 33 
(2,3) > (1,3) |} 41 
(2,4) > (2,4) |5 45 
(2,5) > (2,5) |6 +6 


goes to 1, so the permutation is H(3) = (1,4). 
Then the Second element 7(4) we found that, We see from the above table that 1 goes 


Table 3.2: y(4) 
The Permutation (4) | The Label 
(1,3) > (1,3) |} 141 
(1,4) > (2,4) | 2345 
(1,5) > (1,5) | 333 
(2,3) > (2,3) | 44 
(2,4) > (1,4) | 542 
(2,5) > (2,5) |6>6 


to 5 and 5 goes to 1, so the permutation is H(4) = (2,5). 
(5) is found in table below. 
We see from the above table that 3 goes to 6 and 6 goes to 3, so the permutation 
is. (5). = (3:6). 
(3) x H(4) x H(5) = (1,4) x (2,5) x (3,6). New, given & = (345), and the formula for 


Table 3.3: 7 
The Permutation (5 


5) 


( 
) | The Label 
1,3) |} 1741 
(1,4) | 22 
(2,5) | 3 > 6 
(2,3) | 44 
(2,4) 

(1,5) 


0-35 
6 > 3 


(1,3) > 

(1,4) > 
(1,5) > 
(2,3) > 
(2,4) > 
(2,5) > 


y+ k* is s(x, y) > (a, yk). 


Table 3.4: y+ k* 


The Permutation k = (345) | The Label 
(1,3) — (1,4) 142 
(1,4) — (1,5) 243 
Gas ee (1,3) a 
(2,3) > (2,4) 4-5 
(2,4) > (2,5) 5 > 6 
(2,5) > (2,3) 6-4 


We see from the above table that the permutation is k* = (1,2,3)(4, 5,6) . 
We now use MAGMA to check the answer, 


:=Sym(6) ; 
:=S!(1,4); 
:=S!(2,5); 
:=S!(3,6); 
:=$!(1,2,3)(4,5,6); 
:=sub<S|X,Y,Z,F>; 
#N; 


27 N KX oN 


> W:=WreathProduct (CyclicGroup(2) ,CyclicGroup(3)) ; 

> #W; 

24 

> S:=IsIsomorphic(N,W) ; 

> S; 

true 

> N1i:=Stabiliser(N,1); 

> Ni; 

Permutation group Ni acting on a set of cardinality 6 
Order = 4 = 2°2 


(2,5) 
(3, 6) 
Permutation group N12 acting on a set of cardinality 6 
Order = 2 
(3, 6) 
> C:=Centraliser(N,N12) ; 
> C; 
Permutation group C acting on a set of cardinality 6 
Order = 8 = 2°3 
(2, 5) 
(1, 4) 
(3,6) 
> N14:=Stabiliser(N,[1,4]); 
> N14; 
Permutation group N14 acting on a set of cardinality 6 
Order = 4 = 2°2 
(25,55) 
(3, 6) 
> C:=Centraliser(N,N14) ; 
> C; 
Permutation group C acting on a set of cardinality 6 
Order = 8 = 2°73 
(1, 4) 
(3, 6) 
(23-5) 
NN:=G; 
Sch:=SchreierSystem(NN,sub<NN|Id(NN)>) ; 
ArrayP:=[Id(N): i in [1..24]]; 
for i in [2..24] do 
for> P:=[Id(N): 1 in [1..#Sch[i]]]; 
for> for j in [1..#Sch[i]] do 
for|for> if Eltseq(Sch[i])[j] eq 1 then P[j]:=X; end if; 
for|for> if Eltseq(Sch[i])[j] eq 2 then P[j]:=Y; end if; 
for|for> if Eltseq(Sch[i])[j] eq 3 then P[j]:=Z; end if; 
for|for> if Eltseq(Sch[i])[j] eq 4 then P[j]:=F; end if; 
for|for> if Eltseq(Sch[i])[j] eq -4 then P[j]:=F*-1; end if; 
for|for> end for; 
for> PP:=Id(N) ; 
for> for k in [1..#P] do 
for|for> PP:=PP*P[k]; end for; 
for> ArrayP[i]:=PP; 
for> end for; 
>for iin [1..24] do if ArrayP[i] eq N!(2, 5) then print Sch[i]; 
end if; end for; 


VVV Mv 


y 

> for i in [1..24] do if ArrayP[i] eq N!(3,6) then print Sch[i]; 
end if; end for; 

Zz 

H<X,Y,Z,F,t>:=Group<X,¥,Z,F,t|X°2,Y72,Z°2,F73, (X,Y), (X,Z), (¥,Z), 

X°F=Y,Y°F=Z,Z°F=X,t72,(t,X),(t,Y),(t,Z)>; #H; 

> for k,l,m,n,o in [0..24] do 

for> H<X,Y,Z,F,t>:=Group<x,Y,Z,F,t|X°2,Y°2,Z°2,F°3, (X,Y), (X,Z), 
(Y,Z) ,X°F=Y,Y°F=Z,Z°F=X,t*2, (t,Y), (t,Z) , (t*t*F) “k=Z, (t*t*X)°1=Z>; 

#H; k,l,m,n,o; end for; 
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Chapter 4 


The Transitive Group 


We will work in this chapter on some k-transitive Groups and learn how to find them by 
using MAGMA. First of all, in order to find the permutation for a transitive group on k 
points, we use MAGMA to determine how many transitive group on k points exist. We 
can chose any transitive groups and find faithful permutation representations. Second, 

we will use MAGMA to find the progenitor (2** : N). In this project we will chose k to 
be 8, 9, and 18 respectively. Third, we will find the homomorphic images for G. Finally, 
we will show the isomorphic type of the subgroup N of S,. Here, we are starting with 


some definitions of transitive group. 


Definition 4.1. A G-set X is transitive if it has one orbit; that is, for every x,y © X, 


there exists o € G with y= oz. 


4.1 The Transitive Group (8,22) 


By using MAGMA we will find a faithful permutation representation of the 
transitive group (8,22).. 


> NumberOfTransitiveGroups (8) ; 

50 

> N:=TransitiveGroup (8, 22) ; 

> D:=SmallGroupDatabase (); 

> G:=SmallGroup(D, IdentifyGroup(N) [1] , IdentifyGroup(N) [2]); 
> £,G1,k:=CosetAction(G,sub<G|Id(G)>) ; 

> SL:=Subgroups (G1) ; 
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T:= {X‘subgroup: X in SL}; 
TrivCore:={H:H in T| #Core(G1,H) eq 1}; 
mdeg:=Min({Index(G1,H):H in TrivCore}) ; 
Good:={H: H in TrivCore| Index(G1,H) eq mdeg}; 
H:=Rep (Good) ; 
£,G1,K := CosetAction(G1,H); 
G1; 
Permutation group Gi acting on a set of cardinality 8 
Order = 32 = 275 
(2, 5)(6, 7) 
(1, 2)(3, 7) (4, 5) (6, 8) 
(1, 3)(2, 6)(4, 8) (5, 7) 
(1, 2)(3, 6) (4, 5)(7, 8) 
(1, 4)(2, 5)(3, 8), 7) 
> FPGroup(G) ; 
Finitely presented group on 5 generators 
Relations 
.1°2 = Id($) 
= Id($) 
= Id($) 
= Id($) 
= Id($) 


VVVVVVM 
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4 = $.5$ 

Mapping from: GrpFP to GrpPC: G 

> G<a,b,c,d,e>:=Group<a,b,c,d,ela"2,b°2,c°2,d°2,e°2,b°a=b*e, 
c°a=c,c b=c*e,d”~ a=d*e,d° b=d,d° c=d,e° a=e,e”  b=e,e”"c=e,e d=e>; 
> #G; 

32 


A 


By using the Schreier System and the point stabilizer in MAGMA we will write 


a presentation for the progenitor ov oN, 


Sch:=SchreierSystem(G,sub<G|Id(G)>) ; 
ArrayP:=[Id(N): i in [1..32]]; 


for i in [2..32] do 
P:=[(Id(N): 1 in [1..#Sch[i]]]; 
for j in [1..#Sch[i]] do 
if Eltseq(Sch[i])[j] eq 1 then P[j]:=aa; end if; 
if Eltseq(Sch[i])[j] eq 2 then P[j]:=bb; end if; 
if Eltseq(Sch[i])[j] eq 3 then P[j]:=cc; end if; 
if Eltseq(Sch[i])[j] eq 4 then P[j]:=dd; end if; 
if Eltseq(Sch[i])[j] eq 5 then P[j]:=ee; end if; 
end for; 
PP:=Id(N) ; 
for k in [1..#P] do 
PP:=PP*P[k]; end for; 
ArrayP [i] :=PP; 
end for; 
for i in [1..32] do Sch[i], ArrayP[i]; end for; 
N1i:=Stabiliser(N,1); 
N1; 
Permutation group Ni acting on a set of cardinality 8 
Order = 4 = 2°2 

(OSG FD 

(3, 8)(6, 7) 


> G<a,b,c,d,e,t>:=Group<a,b,c,d,e,t|a°2,b°2,c°2,d°2,e°2, b°a=bte, c°a=c, 
c*b=c*e,d°a=d*e,d*b=d,d*c=d,e*a=e,e*b=e,e*c=e,e-d=e,t°2, (t,a), (t, b*d)>; 
> #G; 


We add the first order relation as we showed in chapter 2, and have this presentation; 


for f,j,h,i,1,S,n,0,p,q,x,y,zZ,v,s,g,l,u,r in [0..10] do 
G<a,b,c,d,e,t>:=Group<a,b,c,d,e,tla°2,b°2,c°2,d°2,e°2,b"a=b*e,c*a=c, 
c*b=c*e,d°a=d*e,d*b=d,d*c=d,e*a=e,e*b=e,e*c=e,e-d=e,t~2, (t,a), (t, b*d) 
, (ext) “£, (b*t) “j, (c#t) *h, (a*t) “i, (axt*b) “1, (a*c*t)“S, (a*b*c*t) “n, 
(b*d*t)~o, (b*d*t~b) “p, (d*t) “q, (c*d*t) “x, (a*b*d*t) “y, (a*b*d*t~b) ~z 

, (a*b*e*t) “v, (b*c*t) “s, (b¥c#d*t) “g, (akd*e*t) “1, (a*b*c*d*t) “u, 
(axckd*t) “r>; 

if #G gt 32 then f,j,h,i,1,5,n,0,p,q,x,y,z,v,s,g,1,u,r, 

Index (G,sub<Gla,b,c,d,e>), #G; end if; end for; 


By using the lemma, we get this presentation; 


for r,k in [0..10] do 
G<a,b,c,d,e,t>:=Group<a,b,c,d,e,tla°2,b°2,c°2,d°2,e°2,b"a=b*e 
,C a=c,c b=c*e,d° a=d*e,d~ b=d,d~ c=d,e"a=e,e  b=e,e° c=e,e° d=e,t°2 
, (tia), (t, bed) , (axced*t) “r, (t*t*b) “k=b*d>; 
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Table 4.1: Some Finite Homomorphic Image of 2*° : N 


a v|s|g{I |ulr | Order of G | Group Name 

0 Oo/o/o/o0 |3]5 | 15360 2”: o( As x 2) 

0 0/0]0]3 | 5 | 10] 7680 7 : @ As 

0 0;/0}0}3 |7)9 | 129024 28 : eLo(8) 

0 0/0/0/3 |8|7 | 86016 OF a(R e) 
0 0}0]}0)4 |5/6 | 61440 2° : 0(29 x 3x 5) 
0 0/0/0)5 |5]|4 | 20480 27: (25 x 5) 

0 0/9}9)10|}3]9 | 20520 52 (PSL(2 19) 2 


r,k,#G; end for; 


2 9 288 
2 10 320 
3 2 768 


4.2 Isomorphic Type of N 


Consider the subgroup N of Sg below. We will show that N is isomorphic to 
the semi-dircet product of (4 x 2) by 27. We will search for the largest Abelian subgroup, 
NLii], of N, using the normal subgroup lattice NL. 


> for iin [1..68] do if IsAbelian(NL[i]) then i; end if; end for; 
1 


49 
50 


Thus, NL[50] is the largest Abelian subgroup of N. We factor N by NL[50J, 
and call it g. Thus N is a mixed extension of NL[50] by q, the factor group N/NL[50]. 
We now find isomorphism type and presentations of NL[50] and q. 

We show below that NL[50] is isomorphic to 4 x 2. 


> X:=AbelianGroup(GrpPerm, [4,2]); 

> IsIsomorphic (NL[50] ,X); 

true Mapping from: GrpPerm: $, Degree 8, Order 2°3 to GrpPerm: X 
Composition of Mapping from: GrpPerm: $, Degree 8, Order 273 to GrpPC and 
Mapping from: GrpPC to GrpPC and 

Mapping from: GrpPC to GrpPerm: X 
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NL[50] is generated by A and B given below. 


> A:=N!(1, 8, 4, 3)(2, 6, 5, 7); 
> B:=N!(1, 6)(2, 3)(4, 7)(5, 8); 
> A*B eq BA; 
true 
> A*B; 
Che ag Ay OS Ga. Bis ih) 
> NL[50] eq sub<N|A,B>; 
true 


A presentation of NL[50] is (eget us (x, y)}. We factor N by N[50] and find the 
generators of g a presentation for q. 


q,ff:=quo<N|NL[50]>; 


qi:=q.1; q3:=q.3; 
q eq sub<qlq.1,q.3>; 
true 


VVV Vv 


We show below that g is isomorphic to 2?. 


H<a,b>:=Group<a,bl|a*2,b°2, (a*b) ~2>; 
#4H; 


f,h1,k:=CosetAction(H, sub<H|Id(H)>) ; 

s:=IsIsomorphic(h1,q); 

true Isomorphism of GrpPerm: hi, Degree 4, Order 2°72 into GrpPerm: q, 
> Degree 4, Order 2°2 induced by 

> (1, 2)(3, 4) |--> (1, 2)03, 4) 

> (1, 3)(@, 4) [--> G, 3)(@, 4) 


> 
> 
4 
> 
> 


We now see if the generators and relations of g can be expressed in terms of non-identity 


elements of NL[50]. 


> T:=Transversal (N,NL[50]); 
> q,ff:=quo<N|NL[50]>; 

> f£(T[2]) eq q.1; 

true 

> ££(T([3]) eq q.3; 

true 

> f£(TL2]*T[3]) eq q.1*q.3;; 
true 

> Order (T[2]) eq Order(q.1); 
true 
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> Order (T[3]) eq Order(q.3); 

true 

> Order (T[2]*T[3]) eq Order (q.1*q.3); 

true 

> /* true Order(T[2]) eq Order(qi); true 

> Order (T[3]) eq Order(q3); true 

> Order (T[2]*T[3]) eq Order(q.1*q.3); true */ 


The computation above demonstrates, it is not possible. Thus N is a semi-direct product 
of NI[50] by q; that is, 4 x 2 by 2?. Thus N is isomorphic to (4 x 2) : 27. We now 
determine the action of g on NL[50]. 


> A°T [2], 

(1, 8, 4, 3)(2, 6, 5, 7) 
> A°T[3]; 

(1, 3, 4, 8)(2, 7, 5, 6) 
> BT [2]; 

(1, 7)(2, 8)(3, 5) (4, 6) 
> B°T[3]; 

(1, 6)(2, 3) (4, 7) (5, 8) 
> A,A°~2,A73,B,A*B,A7~2*B,A~3*B; 
(1, 8, 4, 3)(2, 6, 5, 7) 
(1, 4)(2, 5)(3, 8) (6, 7) 
(1, 3, 4, 8)(2, 7, 5, 6) 
(1, 6)(2, 3)¢4, 7)(5, 8) 
(1, 5, 4, 2)(8, 6, 8, 7) 
(1, 7)(2, 8)(3, 5) (4, 6) 
Chige Bin. Are GOCS 5 fp Opt OD 


Here is a presentation for the semi-direct product of 4 x 2 by 2?. 


> G<x,y,a,b>:=Group<x,y,a,b|x°4,y°2, (x,y) ,a°2,b°2, (a*b) “2=x°2,x*a=x, 
xX" b=x73,y"a=x"2*y ,y b=y>; 

> #G; 

32 


Now, we show that G is isomorphic to the semi-direct product of 4 x 2 by 2?. 


> f1,g1,k1:=CosetAction(G,sub<G|Id(G)>) ; 

> IsIsomorphic(g1,N); 

true Mapping from: GrpPerm: gi to GrpPerm: N 
Composition of Mapping from: GrpPerm: gi to GrpPC and 
Mapping from: GrpPC to GrpPC and 

Mapping from: GrpPC to GrpPerm: N 


Thus, N is isomorphic (2° : 27). 
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4.3 The Transitive Group (9,19) 


By using Magma we will find a faithful permutation representation of the tran- 
sitive group (9,19).. 


S:=Sym(9) ; 

aa:=S!(2, 3, 4, 8, 5, 7, 9, 6); 
bb:=S!(2, 4)(3, 7)(5, 9); 
cor=s!(, 4,5, 9) (3, 8, 7, 6); 
dd:=S!(2, 5)(3, 7) (4, 9)(6, 8); 
ee:=S!(1, 2, 5)(3, 6, 9)(4, 8, 7); 
f£:=S!'(1, 3, 7)(2, 6, 4)(5, 9, 8); 
N:=sub<S|aa,bb,cc,dd,ee,ff>; 


After we work in MAGMA, we find that the transitive group (9,19) is semi-direct product 
of 37 by 24, and we write it as N = 3? : 2*. Subsequently, by adding relations to the 
presentation of 2*° : N, we get the following homomorphic images. 


for E,w,F,q,j,n,o,r,u,i,y,h,l,s,x,z in [0..10] do 
G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t|a°8,b°2,c°4,d°2,e°3,f°3\ 
,(e,f) ,a*2=c,c*2=d, b°a=b*cxd, c*a=c,c* b=c*d,d*a=d,d*b=d,d*c=d,\ 
e“a=f ,e*b=e* (£°2) ,e*c=e* (£72) ,e~d=e"2,f*a=ex*(f*2) ,f*b=f°2,f*c\ 
=(e72)*(£°2) ,f“d=f°2,f-e=f ,t°*2, (t,a), (t,b), (t,c), (t,d), (c*f*-\ 
1L*c*t) “E, (c#£*-1L*c*t* (f*c)) “w, (b*f*t) “F, (b*f*t~e) “q, (ext) “JZ, (\ 
ex*xc*-1*t) “n, (exc*-1*t* (£*c)) 70, (axe*b*t) “r, (axke*b*t* (£7-1))7u\ 
, (ake*b*t~e) “i, (e*b*t) “y, (e*b*t~e) “h, (axt) “1, (axt~e)*s, (axd*t)\ 
“x, (axd*t*e)*z>; 

if #G gt 144 then E,w,F,q,j,n,o,r,u,i,y,h,l,s,x,z, Index(G,sub\ 
<Gla,b,c,d,e,f>), #G; end if; end for; 


Table 4.2: Some Finite Homomorphic Image of 2*9 : N 


E y|h|}l|s |a|z | Order of G | Group Name 
0 0/0]0]0]|0 ] 6 | 645120 23 : e(L3(4) x 2) 
0 0|4]|0}]0|0 | 0 | 73728 2? (237) 
0 0|5/0/0] 0/8 | 518400 (Ag x Ag) : (2?) 
0 0|6|0]|0{|0 | 8 | 5668704 BP (2? BF) 
0 5|0]0/0]0 | 0 | 1555200 3: (S6 e S¢) 
0 6|6)0]0]0/) 8 | 629856 BPD? 37) 


4.4 The Transitive Group (18,12) 


By using MAGMA we will find a permutation of the transitive group (18,12).. 
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S:=Sym(18) ; 

aa:=S! (3, 7)(4, 9)(5, 10)(6, 12)(8, 14) (11, 17)(13, 15)(16, 18); 
bb:=S! (1, 2)(3, 5)(4, 6)(7, 10)(8, 11) (9, 12)(13, 16)(14, 17) (15, 18); 
cc:=S! (1, 3, 7)(2, 5, 10)(4, 8, 13)(6, 11, 16)(9, 15, 14)(12, 18, 17); 
dd:=S! (1, 4, 9)(2, 6, 12)(3, 8, 15)(5, 11, 18)(7, 13, 14)(10, 16, 17); 
N:=sub<S|aa,bb,cc,dd>; 


After we work in MAGMA, we find that the transitive group (18,12) is a central extension 
of 2 by [37 : 2], and we can define it as N = 2.[3? : 2]. Subsequently, by adding relations 


to the presentation of 2*!8 : N, we get the following homomorphic images. 


for e,f,g,h,i,j,l,n,o,p,q,r,s,w,x,y,zZ,v,u in [0..10] do 
G<a,b,c,d,t>:=Group<a,b,c,d,tla°2,b°2,c°3,d°3, b°a=b,c°a=c"2,c"b=c, 
d*a=d*2,d*b=d,d*c=d,t~2, (t,a), (b*t)~e, (a*t) “f, (axt*c)“g, (a*t*d)*h, 
(axt* (c*d)) “i, (a*t* (d*c*-1)) 75, (a*b*t) “1, (axb*t*c) “n, (a*b*t*d)~o, 
(axb*t* (c¥*d)) “p, (axb*t* (d*c*-1))7q, (c*t) “r, (d*t)*s, (c#d*t) “w, 
(Cc*d*-1) *t) “x, (b*c#t) “y, (b*d*t) “z, (b*c*d*t) “v, ((b*c*d*-1)*t) “u>; 
if #G gt 36 then e,f,g,h,i,j,1,n,0,p,q,r,S,W,x,y,Z,V,u, 
Index(G,sub<Gla,b,c,d>), #G; end if; end for; 


Table 4.3: Some Finite Homomorphic Images of 2*!8 : N 


e€ wi|a2i)yi|zi{u {ut Order of G | Group Name 

0 0/0/313]9 | 9 | 78732 B02 (2 37) 

0 0|3/0]8{]4 | 0 | 63763200 | 63763200 

0 0 |3|4]8{] 10) 0 | 1062720 (2 eGL(2,81)) 

0 0|3/)5]0]5 | 6 | 188743680 | 188743680 

0 0/3/5/5]8 | 0 | 368640 210: Ag 

0 0|3|6]6]7 | 3 | 1524096 (PSL(2,8) x PSL(2,8)) : 83 
0 0|4/0]0)]3 | 4 | 2211840 2° : (53 @ Ag) 


Chapter 5 


Progenitors 


In this chapter we will discuss some important groups and presentations. 


5.1 Progenitors Dee Seok Mos 


S:=Sym(30) ; 

xx:=S!(1, 2, 4, 8)(8, 6, 11, 18, 26, 20, 29, 22)(5, 10, 17, 12, 19, 
28, 30, 25)(7,13, 21, 27, 15, 24, 23, 14)(9, 16); 

yy:=S!(1, 3, 7, 14, 23, 29, 4, 9)(2, 5, 10, 6, 12, 20, 28, 30)(8, 
15, 25, 21)(11,16, 26, 19, 13, 22, 24, 17)(18, 27); 

N:=sub<S|xx,yy>; 

G<x,y,t>:=Group<x,y,t|x°8,y°8, (x*y*-2*x) “2, (x*-1*y*-1) 74, (x*y*-1) 74, 

Cy*-Lex7-Ley*x*Sty*x7-Ley7-1ex) , (y*x*y*x Styexey72) 072, (t,x74), 

(t , x*y*x7-1L*y°-2*x) , (t,x*y*x*y*x*-Ley7-1)>; 


5.2 Progenitors 2*” : 2x A; of J; 


S:=Sym(60) ; 

xx:=S!(1, 2)(3, 9)(4, 7)(5, 12)(6, 13)(8, 16)(10, 20)(11, 18) 
(14, 26)(15, 24) (17,29) (19, 32)(21, 35)(23, 33)(25, 37) 

(27, 40)(28, 41) (30, 44) (31, 42) (36,46) (38, 47)(39, 48) 

(43, 52)(45, 54) (49, 53)(50, 56)(51, 57)(55, 59); 

yy=sCl, 93, 40, 4 T1, Sy by. 14°75 455.-8).(Oy. 17, 30, 18; 
31, 19)(12, 21, 34,20, 33, 22)(13, 23, 36, 24, 35, 25) 

(16, 27, 39, 26, 38, 28)(29, 41, 51,42, 48, 43)(32, 45, 

37, 44, 53, 46)(40, 49, 55, 47, 54, 50)(52, 58, 56,57, 

60, 59); 

zz:=S!(1, 4)(2, 7)(3, 11)(5, 10)(6, 15)(8, 14)(9, 18)(12, 20) 
(13, 24)(16, 26) (17,31) (19, 30) (21, 33)(22, 34)(23, 35) 
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(25, 36) (27, 38)(28, 39)(29, 42) (32,44) (37, 46) (40, 47) 

(41, 48)(43, 51) (45, 53)(49, 54)(50, 55)(52, 57) (56,59) 

(58, 60); 

N:=sub<S|xx,yy,Zz>; 
G<x,y,z,t>:=Group<x,y,z,t|x°2,y°6,2°2, (y~3*z) , (x*z) “2, (x*y7-1) 75 
,t°2, (t,y*-1ex*y*-Lex*yxe*y) , (t,t°x), (t,t7y), (t,t°z), (t,t* (y75)) 
»(t,t7 Cx*y)), (Ct, t* (y*z)) , (t,t Cx#y75)) , (t,t (y72)), (t,t (y*z)), 
(t,t7 (Cy75) *x)) , (t, 07 (xty*x)) , (t,t Cx*y72)), (t,t (x*y*z)) , (t,t 
(x* (y75) *x)), (6,07 (y*x*y)), (t,t7 (y#x*y75)) , (0,07 CCy72) *x)) , (t,t 
CCy75) xy) ) , (6,07 CCy75) ex* (y75))) , (6, 07 (xe (y 74) x) ) , CO, 07 (xe Cy 
2)*x)) , (t,t7 (x* (y75) ex¥y)) , (0,07 Cx* (y75) ex* (y75))) , (6, 07 Cy *x* Cy? 
2))), (0,07 Cy*x* (y74))) , (0, 07 CCy72) ex¥y) ) , (0, 07 Cxey*x* (Cy 72) *z*x) ) 
» (0,7 (x (y75) ex (y72))) , (0,07 (xe Cy 75) ex¥y*x)) , (0,67 (yxy ex Cy 
5))), (t,t7 (xe (y75) ex#y*x*z) ) >; 


5.3 Progenitors 2°” : (13: 4) of SZs 


S:=Sym(13); 

xx:=S!(1, 2, 3, 5)(4, 8, 7, 10)(6, 9, 11, 13); 

yyiee! (1; 4595-8; 10; 18). 7; °8,. 2-642) T1,.5); 

N:=sub<S|xx,yy>; 

G<x,y,t>:=Group<x,y,t|x°4, (x*-1L*y*-1*x°2*y7-1*x7-1) , (x*y*-2*x7-1*y73), 
t°2,(t, (x*-1)*y)>; 


5.4 Progenitors 2*” : (13 : 12) of tw fu, 
The Lie Group Twisted F'(4,2) on 1755 Letters 


S:=Sym(78) ; 

xx:=S!(1, 2, 5)(3, 9, 11)(4, 12, 15)(6, 17, 13)(7, 18, 20)(8, 21, 19) 
(10,24, 26) (14, 32, 34) (16, 37, 22).(23,. 39; 42) (25,48; 50) 

(27, 52, 54)(28, 55, 53)(29, 30, 56)(31, 58, 59)(33, 44, 61) 

(35, 63, 46)(36, 65, 64)(38, 67, 47)(40, 68, 69)(41, 70, 66) 

(43, 57, 51)(45, 71, 60)(49, 72, 73)(62, 77, 75)(74, 78, 76); 

yy:=S!(1, 3)(4, 13)(5, 14)(7, 19)(8, 22)(9, 23)(10, 20) (11, 25)(12, 24) 
(15, 33)(16, 28)(17, 38)(21, 44) (26, 49) (27, 53)(30, 57)(31, 56) 

(32, 58) (34, 60) (35, 64) (36, 39)(37, 62)(40, 66)(41, 51) (42, 69) 

(43, 46) (45, 63) (47, 54) (48, 70) (50, 59) (52, 72)(55, 73)(61, 76) 

(65, 71) (67, 78)(74, 77); 

zz:=S!(1, 4, 14, 33, 60, 76, 65, 67, 39, 17, 9, 6)(2, 7, 3, 10, 25, 49 

, 59, 55, 32, 16, 5, 8)(11, 27, 23, 47, 69, 78, 68, 77, 66, 37 
, 48, 28)(12, 29, 13, 31, 38, 50, 54, 70, 72, 51, 26, 30)(15, 
35, 24, 43, 20, 41, 18, 40, 19, 42, 44, 36)(21, 45, 22, 34, 62 


, 58, 75, 56, 74, 57, 61, 46)(52, 63, 53, 64, 73, 71); 
N:=sub<S|xx,yy,zz>; 
G<x,y,z,t>:=Group<x,y,z,t|x°3,y°2, (z*y*x*z) , (z*x*y*x7-1*z7-L*y) ,t72, 
(t,x*y*x7-1)>; 


5.5 Progenitors 2°" : (17: 2) 


S:=Sym(17) ; 

xx:=S!(1, 2)(3, 6)(4, 5)(7, 10)(8, 9) (11, 14)(12, 13) (15, 16); 
yy:=S!(1, 3, 7, 11, 15, 17, 16, 14, 10, 6, 2, 5, 9, 13, 12, 8, 4); 
N:=sub<S|xx,yy>; 
G<x,y,t>:=Group<x,y,t|x°2,y°-17, (y*-1*x)°2,t°2, (t,x*y°7)>; 


5.6 Progenitors oe oN 


S:=Sym(49) ; 

xx:=S!(1, 3, 8, 12, 28, 4, 11)(2, 6, 16, 17, 20, 10, 25)(5, 14, 
31, 35, 41, 24,40)(7, 19, 39, 30, 42, 15, 33)(9, 22, 43, 

44, 48, 23, 36)(13, 29, 47,45, 49, 26, 46)(18, 37, 34, 38 

» 27, 32, 21); 

yy:=S!(1, 2, 5, 13, 15, 32, 48)(3, 6, 14, 29, 33, 21, 23)(4, 10, 
24, 26, 30, 38, 43)(7, 18, 36, 8, 16, 31, 47)(9, 12, 17, 

35, 45, 19, 37)(11, 25, 40, 46, 42, 27, 44)(20, 41, 49, 

39, 34, 22, 28); 

zz:=S!(2, 4, 9, 21, 42, 49, 31)(3, 7, 17, 34, 24, 44, 13)65, 
12, 27, 47, 10, 23, 39)(6, 15, 11, 26, 22, 35, 18)(8, 

20, 40, 29, 19, 38, 48)(14, 30, 36, 25, 45, 32, 28); 

N:=sub<S|xx,yy,Zz>; 

G<x,y,z,t>:=Group<x,y,z,t|lx°7,y°7,2°7, (x,y), (2*x°-2*z*-1*y"-1), 

(y*-2*x*-Qez*y*z~-1) ,t72,(t,z)>; 


5.7 Progenitors De aN 


S:=Sym(12) ; 

xx:=S!(1, 4)(2, 3)(5, 6)(7, 10)(8, 9)(11, 12); 

yy:=S!(1, 3, 5, 4, 2, 6)(7, 9, 11, 10, 8, 12); 

2z:=S!(1, 7, 4, 10)(2, 8, 3, 9)(5, 11, 6, 12); 

ww:=S!(1, 2, 5)(3, 6, 4)(7, 11, 8)(9, 10, 12); 
N:=sub<S|xx,yy,ZZ,ww>; 
G<x,y,Z,w,t>:=Group<x,y,zZ,w,t|x°2,z2°4,w°3, (y"3*x) , (27-1*x*z*-1), 
(yz), Cy,w), (2*-Lew*-1*z*w7-1) ,t72, (t, x*y*w7-1)>; 
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5.8 Progenitors oe oN: 


S:=Sym(48) ; 

aa:=S!(1, 9)(2, 10)(3, 11)(4, 12)(5, 21)(6, 22)(7, 23)(8, 24) 
(13, 33)(14, 34) (15, 35)(16, 36)(17, 41) (18, 42)(19, 43) 

(20, 44) (25, 32)(26, 31)(27, 30) (28,29) (37, 45) (38, 46) 

(39, 47) (40, 48); 

bb:=S!(1, 5, 20, 4, 8, 17)(2, 6, 19, 3, 7, 18)(9, 29, 40, 12, 
32, 37)(10, 30, 39, 11, 31, 38)(13, 26, 44, 16, 27, 41) 

(14, 25, 48, 15, 28, 42)(21, 46, 34, 24, 47, 35)(22, 45, 

33, 23, 48, 36); 

ecr=S!(4; 13) (@2,. 14) (3; 15) (4, 16) (6; 22).(6;.-21) (7, 24) (8,. 23) 
(9, 33)(10, 34)(11, 35)(12, 36)(17, 40) (18, 39)(19, 38) 

(20, 37) (25, 31)(26, 32)(27, 29)(28, 30)(41, 48) (42, 47) 

(43, 46) (44, 45); 

dd:=S!(1, 2)(3, 4)(5, 6)(7, 8)(9, 10)(11, 12)(13, 14)(15, 16) 
(17, 18)(19, 20) (21, 22)(23, 24)(25, 26) (27, 28)(29, 30) 

(31, 32) (33, 34)(35, 36)(37, 38)(39, 40) (41, 42)(43, 44) 

(45, 46) (47, 48); 

ee:=S!(1, 2)(3, 4)(5, 22)(6, 21)(7, 24)(8, 23)(9, 10) (11, 12) 
(13, 14)(15, 16)(17, 45)(18, 46)(19, 47) (20, 48) (25, 31) 

(26, 32)(27, 29)(28, 30)(33, 34)(35, 36) (37, 41)(38, 42) 

(39, 43) (40, 44); 

ge:=S!(1, 3)(2, 4) (5, 7) (6, 8)(9, 11) (10, 12)(13, 15)(14, 16) 
(17, 19) (18, 20)(21, 23)(22, 24)(25, 27)(26, 28)(29, 31) 

(30, 32) (33, 35)(34, 36)(37, 39)(38, 40)(41, 43) (42, 44) 

(45, 47) (46, 48); 

hh:=S!(1, 11)(2, 12)(3, 9)(4, 10)(5, 25)(6, 26)(7, 27)(8, 28) 
(13, 35)(14, 36) (15, 33)(16, 34)(17, 47) (18, 48)(19, 45) 

(20, 46) (21, 32)(22, 31)(23, 30) (24,29) (37, 43) (38, 44) 

(39, 41) (40, 42); 

N:=sub<S|aa,bb,cc,dd,ee,gg,hh>; 

G<x,y,Z,w,u,v,k,t>:=Group<x,y,Z,w,u,v,k,t|x°2,y°6,2°2,w°2,u°2, 

v2,k°2, (x*z)°2, (y*-1*wey*w) , (x*w) 72, (z*w) 72, (x*u) “2, (z*u)*2, 

(wu) 72, Cy*-Lavey*v) , (x*v) 72, (z¥v) 72, (wv) “2, Cu*v) “2, (x*k)°2, 

(z*k) 72, (w*k) 72, (u*k) “2, (v*k)°2, (y*-3*wev) , (z*x*y7-1*u*y) , 

(k*ez*y*-1*k*y) , (kewty*-Lezty) , Cuex*y*-2*urk*y*-1) ,t72, (t, wu), 

(t,x*v*k)>; 


5.9 Progenitors pe aN 


S:=Sym (24) ; 
xx:=S!(1, 2)(3, 4)(5, 6)(7, 8)(9, 13)(10, 14) (11, 16)(12, 15) 


C1 D218. 21) (19,23) (205.24) 

yy:=S!(1, 6)(2, 5)(3, 7)(4, 8)(9, 10)(11, 12)(13, 14) (15, 16) 
(17, 21)(18, 22)(19, 24)(20, 23); 

zz:=S!(1, 9, 18, 2, 10, 17)(3, 11, 20, 4, 12, 19)(5, 13, 22, 
6, 14, 21)(7, 15, 24, 8, 16, 23); 

ww:=S!(1, 8, 2, 7)(3, 6, 4, 5)(9, 16, 10, 15)(411, 14, 12, 13) 
(17, 24, 18, 23)(19, 22, 20, 21); 

uu:=S!(1, 2)(3, 4)(5, 6)(7, 8)(9, 10) (11, 12) (13, 14) (15, 16) 
(17, 18)(19, 20) (21,22) (23, 24); 

vvi=SlC1 5. (5, 2)-6)(S, 7, 4; 8) O9,, 21, 10;- 22) 1s 23, 12, 24) 
(13, 18, 14, 17)(15, 20, 16, 19); 

N:=sub<S|xx,yy,ZZ,ww,uu,vv>; 

G<x,y,Z,W,U,Vv>:=Group<x,y,Z,W,u,v|x°2,y°2,z°6,w-4,u°2,v4, (x*y) “2, 

(y*z7-1*x*z) , (z73*u) , (x*w*-Lextw) , Cy*w>-1Lty*w) , (zw), (w7-2*u) , 

(v7 -Lew*2*v7-1) , (xev7-1Lex*v) , (z*-1*v7-1*z7-1*v) , (wiv), 

(27-1 *y*x*z*x) >; 
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Chapter 6 


Double Coset Enumeration 


Definition 6.1. Let H and K be subgroups of a group G. A double coset of H and K 
in G is a set of the form Hak = {hak|h € H,k € K} for someaeG. 


Theorem 6.2. (Coset Enumeration) 

Let G have a presentation with a finite number of generators and relations. Set up one 
table for each relation, add new integer entries and enlarge the auxiliary table when pos- 
sible, and delete any large numbers involved in coset collapse. If the procedure ends with 


all relation tables complete and having n rows, then the presented group G has order n. 


6.1 The Double Coset Enumeration of 2° : S3 Over S3 


We take the progenitor 2*? : $3, where 2*° is the free product of 3 copies of the cyclic 
groups of order 2, and $3 is the group of automorphisms of 2*? which permutes the 
three symmetric generators by conjugation and factor it by the relation tot; = tito. 

The double coset enumeration partitions the image of the group G as a union double 
cosets NgN where g € 2*? : $3. Thus, we can find the set of elements 9, g2,... of G such 
that G= NqiNUN@gWN U..., and for each i, we have g; = p;w;, where p; € N, and wu; is 


a word in the t;s. Hence, the double coset decomposition is given by 
G=Nuw,NUNuw2NUNwN U..... : 
where wi = e (the identity). We perform a double coset enumeration of the group 


283 2 95 


jw =1 over S3. We will show 
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A symmetric presentation of the progenitor 2*° : $3 is given by: 
DES Se (pate a7, (ey) yt Gy) 


G factored by [tt”]? which simplify to tot; = tito. Show the simplification where 
N = S3 = (x,y), where x ~ (1,2,3) and y ~ (12), and t = tz = to. 

Using computer-based program - MAGMA : 

1. The order of the group, |G| is equal to 48. 

2. There are 4 double coset in this double coset enumeration of G over N. 
Relations 


We see that 
(tt7)? = 1 = totitot: = 1 = toti = tito. 


Moreover, if we conjugate the previous relation by all elements in $3 = 


{e, (1, 2), (0,1), (0, 2), (0,1, 2), (0, 1,2)} we get relations. We have 
1. (01 = 10)° + 01 =10 
2. (01 = 10)") > 02 = 20 
3. (01 = 10)° + 10 =01 
4, (01 = 10)°) + 21=12 


5. (01 = 10)01) + 12 =21 


6. (01 = 10)?) = 20 = 02 
=> 1221, 10 = 01 and 02 & 20. 


Double Coset [x]: We start with the double coset NeN, where e is the word of length 
zero, denoted by [x]. We have 


NeN ={Nen:ne€ N}={Ne}={N} 
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So, the double coset NeN consists of the single coset N. Thus, 5 = ; = 1 

Note, since N is transitive on {0,1,2}, we take a representative coset N from [x] and a 
representative from {0,1,2} and determine the double coset to which Nt; belongs, 
where 7 € {0,1,2}. We consider i = 0, so Ntg is a representative coset, and hence we 
will have a new double coset NtpN which can denoted by [0]. There will be three 
possible t;s that can advance to the next double coset [0]. 

Word of Length One [0] 

We consider the double coset NwN, where w is a word of length one. 

NtoN = {Nton|n € N}, or [0]. NtoN = [0] = {Nton|n € N} = {NtoN, NtiN, NtoN}. 
Since, the point stabilizer of 0 in the subgroup N is the set of permutations in N that 
fix 0 and permute the rest of the elements in the set {1,2}. Note: 

N = {n € Nt” = to} > ((1,2)). 

Since |V(0)| = 2 then the number of single cosets in [0] is ar Se 

Now, the orbits of N° on {0,1,2} are {0} and {1,2}. We choose a representative from 
each orbit, {0} and {1,2}. If we choose tg from the orbit {0} and choose t, from the 
orbit {1,2}, then we notice the following : 


e Nto-to = Nt2 = N € [x]. This will collapse and hence it will go back to [*]. This 
is denoted by number 1 in Cayley diagram (to the left of the circle containing 3). 


e Nto-t, = Ntoti € [01]. This is a new double coset, which will extend the Cayley 
diagram from [0] to [01]. Since there are 2 elements in this orbit, there are 2 t;s 


that extend [0] to [01]. 


Word of Length Two [01] 

We are at a new double coset [01], Ntoti N = {N(tot1)n|n € N}. Now, to determine all 
the single cosets of this double cosets, we need to determine the point stabilizer N°, 
this means finding the set of elements that fix 0 and 1 in N and permute the rest of the 
elements in the set {1,2,3}. Now, using our relation tot; = tot2. We can see that : 
0-0 and 1 > 2. 

=> Ntot!?”) = Ntot2 = Ntot, > (1,2) ¢ N@. 

air 2 AC, 2)). Thus, |N(@| = 2. So, the number of single cosets in [01] is 


iN@D| mr 3. In order to find these 3 single cosets, we need to determine the 


transversals (right coset representatives) of N(1) 


in N. The 8 single distinct cosets of 
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the double coset [01] are: {Ntot1, Ntot2, Ntit2}. Now, we need to find the orbits of 
N© to advance to the next double coset. From the generator of N© > ((1,2)), the 
orbits of NO! on {0,1,2} are: {0}, and {1,2}. Considering a representative from each 
orbit of N©@, we will choose the following representative from each orbit: to from {0, 1} 


and tz from {2}. Multiply each representative with Ntofy, : 


e Ntoti -to = Ntotito = Ntitoto = Nt t2 = Nt, € [0]. Hence two elements will go 
back to that double coset because {0,1} is one orbit. 


e Ntot; - t2 € [012]. New double coset, hence one element can advance from [01] to 


[012] because {2} is separate orbit. 


Word of Length Three [012]: 

Again we need to find the point stabilizer of 0 , 1 and 2 in N. This is denoted by N°!?. 
Therefore, we need to find the permutations in N that fix 0, 1, and 2. The coset 
stabilizer of the coset Ntotit2, N(!2) > N°!. Using relation tot = tito, if we multiply 
both sides by tg, we get totyte = ty tote 

1) N(totite)!) = Ntiteto = Ntitote = Ntotit2 > (0,1,2) ¢ NO) 

2) N(totit2)©Y = Ntytote = Ntotite > (0,1) € NO) 

=> N(©l2) > ((0, 1,2), (0,1)) & $3. Hence, |N©!?)| = 3! = 6, so ay = : = 
Therefore, there are 1 distinct coset representative. The transversal of N(!2) in N is: 
Ntotyt2, and the orbit of N12) in {0,1,2} is {0,1,2}. We choose a representative from 
the orbit, and determine the double cosets to which Ntotitgt2 belongs. But 

Ntotit2 € [01]. 


Conclusion: 
The double coset enumeration gives that 
N N N 
IG| < (IN| + IN| ve )x |N| =(1+34+3+41)x6=(8x 6) =48. A 


Ivo] * [NOD] [voy 
Cayley diagram of G over S3 is given below.. 
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Figure 6.1: Cayley Diagram for 2° : $3 Over $3 


6.2 The Isomorphism Type of N 


Consider the subgroup N of S3 = N below. We will show that N is isomorphic 
to the semi-dircet product of 3 by 2. We will search for the largest Abelian subgroup of 
N, NL], using the normal subgroup lattice NL. 
> for iin [1..3] do if IsAbelian(NL[i]) then i; end if; end for; 


1 
2 


Thus, NL[2] is the largest Abelian subgroup of N. We factor N by NL/[2], and call it 
q. Then N is a mixed extension of NL[2] by q, the factor group N/NL[2]. We now find 
isomorphism types and presentations of N L[2] and q. 

We show below that NL[2] is isomorphic to 3. 

> X:=AbelianGroup(GrpPerm, [3] ) ; 

> IsIsomorphic(NL[2] ,X); 

true Isomorphism of GrpPerm: $, Degree 3, Order 3 into GrpPerm: X, 


Degree 3, Order 3 induced by 
(1, 2, 3) |--> (1, 2, 3) $ 


NL{2] is generated by A given below. 


> APN, 2.305 

> NL[2] eq sub<N|A>; 

true 

A presentation of NL[2] is {z|x*}. We factor N by N[2] and find the generators of q a 


presentation for q. 


> q,ff:=quo<N|NL[2]>; 
> q.2; 
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> q eq sub<qlq.2>; 
> true 


We show below that q is isomorphic to 2. 


> H<a>:=Group<ala*2>; 

> ##H; 

2 

> £,h1,k:=CosetAction(H, sub<H|Id(H)>) ; 
> s:=IsIsomorphic(h1,q); 

> 3s; 

true 


We now see if the generators and relations of g can be expressed in terms of nonidentity 


elements of NL[2]. 


> T:=Transversal (N,NL[2]); 

> q,ff:=quo<N|NL[2]>; 

> f£(TL2)) eq q.2; 

true 

> Order (T[2]) eq Order(q.2); 

true 

> /* f£(T[2]) eq q.2; true 

true Order(T[2]) eq Order(q.2); true*/ 


The computation above demonstrates, it is not possible. Thus N is a semi-direct product 
of NI[2] by q; that is, 3 by 2. Thus N is isomorphic to 3 : 2. We now determine the 
action of g on NL[2). 

> A°T[2]; 

Cis B52) 

> A°-1; 

(1g. By. 2) 


Here is a presentation for the semi-direct product of 3 by 2. 


> G<x,a>:=Group<x,alx73,a°2,x"a=x, x“ b=x73>; 
> #G; 
6 


Now, we show that N is isomorphic to the semi-direct product of 3 by 2 given above. 


> f1,g1,k1:=CosetAction(G,sub<G|Id(G)>) ; 
> IsIsomorphic(g1,N) ; 
true Mapping from: GrpPerm: gi to GrpPerm: N 


Composition of Mapping from: GrpPerm: gi to GrpPC and 
Mapping from: GrpPC to GrpPC and 
Mapping from: GrpPC to GrpPerm: N 


Thus, N is isomorphic to (3: 2). 
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6.3 The Double Coset Enumeration of 3” : S3 Over Ss 


We take the progenitor 3*? : $3, where 3*° is the free product of three copies 
of the cyclic groups of order 3, and $3 is the group of automorphisms of 3*? which 
permutes the three symmetric generators by conjugation and factor it by the two relations 
t3ty = tate and xtits = tate. 

The double coset enumeration partitions the image of the group G as a union double 
cosets NgN where g € 3*? : $3. Thus, we can find the set of elements gj, g2,... of G such 
that G= NqiNUNg2N U..., and for each 7, we have g; = p;w;, where p; € N, and w;, is 


a word in the t;s. Hence, the double coset decomposition is given by 
G=Nuw,NUNw2NUNw3N U..... . 


where w, = e (the identity). We perform a double coset enumeration of the group 


over 53. We will show 


ar F S3 
[tt*]?, [at (t*)?]? 


G= = Ss. 


A symmetric presentation of the progenitor 3*° : $3 is given by: 
3°: 83 =e, ytle? 9", (@ ¥y)?32 Gy) 


G factored by (t*t”)?, and (at(t)?)? which simplify to x7tyt5 = tite and t3t, = tate. 
N= S53 (x,y) ((é1, to, ts) (e, #3, #3), (¢1, t2) (42, )), 
where x ~ (1,2,3)(4,5,6), and y ~ (1, 2)(4,5), and t = tz. 


Using computer-based program - Magma : 

1. The order of the group, |G| is equal to 120. 

2. There are 7 double cosets in this double coset enumeration of G over N. 

Relations 

By seeing that (1) [zt(t?)?|? = 1 => [via (2)7? = 1 = [eta()7? = 1S [eur a= 1s 

a*(tgtq)*(tsta) = 1 > x7tytstgt, = 1 > a? tits = tty’ > 27 tits = tite > Ntits = tite. 
Moreover, if we conjugate the previous relation by all elements in 

S3 = {e, (1, 2)(4, 5), (1,3)(4, 6), (2, 3)(5, 6), (1, 3, 2)(4, 6, 5), (1, 2,3)(4,5,6)} we get rela- 


tions. We obtain: 


1. ((1, 3, 2)(4, 6, 5)tits = tytg)° => (1, 3,2)(4, 6, d) tits = tite 
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2. ((1,3,2)(4,6, 5)tits = tytg)2)) = (2,3, 1)(5, 6, 4)tota = tote 
3. (1,3, 2)(4, 6, 5)tyts = tite) P94 = (3,1,2)(6,4, 5)tgts = tata 
4. ((1,3,2)(4,6, 5)tits = trtg)?O = (1,2,3)(4,5, 6)tite = tits 
5. (1,3, 2)(4, 6, 5)tits = tite) tb? 94%) = (2,1, 3)(5, 4, 6)tote = tots 
6. ((1,3, 2)(4, 6, 5)tits = tytg) C2459 = (3,2, 1)(6,5, d)tgta = tats 


(II) (t”)? =1 = tgtitst) = 1 => tgt) = ty) ty! > tati = tate. 


Moreover, if we conjugate the previous relation by all elements in $3, we obtain: 
1. (G46) S331 = 46 
2. (31 = 46)")(49) — 39 = 56 
3. (31 = 46)9 949 —. 13 = 64 
4. (31 = 46)? 969) 5 91 = 45 


5. (31 = 46)%?9)456) . 19 = 54 


6. (31 = 46)37465) _, 93 = 65 


Double Coset [x]: 
We start with the double coset NeN, where e is word of length zero, denoted by [*]. We 


have 


NeN ={Nen:ne€ N}={Ne}={N} 
So, the double coset NeN consists of the single coset N. Thus, = = ; =-1 
Note, since N is transitive on {1,2,3,4,5,6}, we take a representative coset N from [x] 
and a representative from {1,2,3,4,5,6} and determine the double coset to which Nt; 
belongs, where i € {1,2,3} and {4,5,6}. We consider i = 3 and i = 6, so Nts and Ntg 
are the representative coset, and hence we will have a new double coset Nt3N and NtgN 
which can denoted by [3] and [6]. There will be six possibles t;s in [*] that can advance 


to the next double cosets [3] and [6]. 


Word of Length One [3] and [6]: 
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(i) Word of Length One [3]: 
we consider the double coset NwN, where w is a word of length one. NtzN = {Nt3|n € N} 
= [3]. We need to find the point stabilizer of 3. So, Ntz3N = [3] = {Nt3|n € N} = 
{Nt3N, NtiN, Nt2N}. Since, the point stabilizer of 3 in the subgroup N is the permuta- 
tions in N that fixes 3 and permute the rest of the elements in the set {1,2,4,5}. Note: 
N®) = {n € N|tg” = t3} > ((1,2)(4,5)). 

LN] SG es 


Since |N)| = 2 then the number of single cosets in [3] is Wwe] = 2> 


Now, the orbits of N@) on {1,2,3,4,5,6} are {3}, {6}, {1,2}, and {4,5}. We 
choose a representative from each orbit, and determine the double cosets to which Ntst; 


belongs for each 7 € {1,3, 4,6}. 


e Nts-ts3 = Nt? = Ntg¢ € [6]. This double coset will go back to [6]. Since there is one 
element in this orbit, there is one ¢; that takes [3] to [6]. 


e Nts -t; = Ntgt, € [31]. This is a new double coset, which will extend the Cayley 
graph from [3] to [31]. Since there are 2 elements in this orbit, there are 2 tis that 
take [3] to [31]. 


e Nt3- ts = Nt3t? = Nt§ =e € [x]. This double coset will go back to [x]. Since there 


is one element in this orbit, there is one t; that takes [3] to [x]. 


e Nts -t4 = Ntgt4 € [34]. This is a new double coset, which extends our graph from 
[3] to [34]. Since there are 2 elements in this orbit, there are 2 t;s that take [3] to 
[34]. 


(ii) Word of Length One [6]: 
we consider the double coset NwN, where w is a word of length one. NtgN = {Nt3|n € N} 
= [6]. We need to find the point stabilizer of 6. So, NtsN = [6] = {Nt@\n € N} = 
{NteN, NtaN, NtsN}. Since, the point stabilizer of 6 in the subgroup N is the permuta- 
tions in N that fixes 6 and permute the rest of the elements in the set {1,2,4,5}. Note: 
N) = {n € Nltg” = te} > ((1,2)(4,5)). 


Since |N(| = 2 then the number of single cosets in [6] i 


[N | 6 
is INCI 5 =3. 


Now, the orbits of N® on {1,2,3,4,5,6} are {3}, {6}, {1,2}, and {4,5}. We 


choose a representative from each orbit, and determine the double cosets to which Ntgt; 
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belongs for each 7 € {1,3, 4,6}. 


e Ntg- tg = Nt? = Nts € [3]. This double coset will go back to [3]. Since there is one 
element in this orbit, there is one ¢; that takes [6] to [3]. 


e Ntg- ti = Ntet: € [61]. This is a new double coset, which extends our graph from 
[6] to [61]. Since there are 2 elements in this orbit, there are 2 t;s that take [6] to 
[61]. 


e Ntg-t3 = Ntits = Nts =e € [x]. This double coset will go back to [x]. Since there 


is one element in this orbit, there is one t; that takes [6] to [*]. 


e Ntg-t4 = Ntgta by the relation(II) Ntgt, = Nt tz then by conjugate Nt,t3 by 
n = (1,3)(4,6) we will get that N(t,t3)” = Ntgti. So, this double coset will go to 
[31]. Since there are 2 elements in this orbit, there are 2 tjs that take [6] to [31]. 


Word of Length Two [31], [34], and [61] 


(i) We are at a new double coset [31] = Ntst,N = {N(tst1)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N°, this means finding the set of elements that fix 3 and 1 in N and permute 


the rest of the elements in the set {2,5}. Note: N@) = {n € N|(tgt,)” = t3t,} > (e). 


Fs ae ae 
(ING) ~~ 1 6. 


Now, the orbits of N@Y on {1,2,3,4,5,6} are {1}, {2}, {3} , {4}, {5}, and {6}. We 
choose a representative from each orbit, and determine the double cosets to which Ntgt,t; 


belongs for each 7 € {1, 2,3, 4,5, 6}. 


Since |N@| = 1 then the number of single cosets in [31] is 


e Ntgt, -t; = Nt3t? = Ntgta € [34]. This double coset will go back to [34]. Since 
there is one element in this orbit, then there will be one t; that takes [31] to [34]. 


e Ntgt, - to = Ntgtst, = Ntstata = Nt3t? = Ntgt, € [31]. This is double coset will 
collapse. Since there is one element in this orbit, there is one ¢t; that takes [31] to 


itself. 


e Ntgty - t3 = Ntgtgta = Nt4 € [6]. This double coset will go back to [6]. Since there 


is one element in this orbit, there is one t; that takes [31] to [6]. 


39 


e Ntgt -t4 = Nt3 € [3]. This double coset will go back to [3]. Since there is one 
element in this orbit, there is one ¢; that takes [31] to [3}. 


e Ntsty -ts = Ntgtitete = Ntgtitg = Nt3t, € [31]. This double coset will collapse. 


Since there is one element in this orbit, there is one t; that takes [31] to itself. 


e Ntgt -tg = Ntatets = Ntat3 € [61]. This double coset will go back to [61]. Since 


there is one element in this orbit, there is one t; that takes [31] to [61]. 


(ii) We are at a new double coset [34] = Nt3t4N = {N(tst4)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N°*, this means finding the set of elements that fix 3 and 4 in N and permute 
the rest of the elements in the set {1,2,4,5}. Now, using our relation Ntgts = t3t4. 
=> N(t3t,)b245) — Ntgts = Ntgta > (1,2)(4,5) ¢ NC, 
= N@4) > ((1,2)(4,5)). Thus, |N@4)| = 2. So, the number of single cosets in [34] is 
WHT = ; = 3. In order to find these 3 single cosets, we need to determine the 
transversals (right coset representatives) of N (34). The 3 single distinct cosets of the 
double coset [34] are: {Nt3t4, Ntota, Ntts}. Now, we need to find the orbits of N@4) to 
advance to the next double coset. From the generator of N@*) > ((1,2)(4,5)), the orbits 
of N4) on {1,2,3,4,5,6} are: {1,2}, {3}, {4,5}, and {6}. Considering a representative 
from each orbit of N@4), and determine the double cosets to which Nt3t4t; belongs for 
each i € {1,3, 4,6}. 


e Ntgt4-t) = Ntst? = Nts € [3]. This double coset will go back to [3]. Since there is 


one element in this orbit, there is one t; that takes [34] to [3]. 


e Ntgt4-t3 € [343]. This this is a new double coset, which extends our graph from 
[34] to [343]. Since there is one element in this orbit, there is one t; that takes [34] 
to [343]. 


e Ntgt4-t4 = Ntgty € [31]. This double coset will go back to [31]. Since there is one 
element in this orbit, there is one t; that takes [34] to [31]. 


e Ntst4-tg = Ntgt3t, = Ntgt, € [61]. This double coset will go back to [61]. Since 


there is one element in this orbit, there is one t; that takes [34] to [61]. 
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(iii) We are at a new double coset [61] = NtgtyN = {N(teti)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N®!, this means finding the set of elements that fix 6 and 1 in N and permute 
the rest of the elements in the set {1,2,4,5}. Now, using our relations; 
=> N(teti)"b2)49) = Ntgt, = Ntatotate = Ntatotsti = Ntatetst, = Ntstitst, = Ntotstite 
= Ntetstits = Nteti => (1, 2)(4,5) € N@, 
= ND > ((1,2)(4,5)). Thus, |N()| = 2. So, the number of single cosets in [61] is 
aay = ; = 3. In order to find these 3 single cosets, we need to determine the 
transversals (right coset representatives) of N‘°), The 3 single distinct cosets of the 
double coset [61] are: {Nteti, Ntsti1, Ntat2}. Now, we need to find the orbits of N©& to 
advance to the next double coset. From the generator of N°) > ((1,2)(4,5)), the orbits 


of N© on {1,2,3,4,5,6} are: {1,2}, {3}, {4,5}, and {6}. Considering a representative 


from each orbit of N‘°), and determine the double cosets to which Ntgtit; belongs for 
each i € {1,3, 4,6}. 


e Niet: - ti = Ntgt? = Nteta = Ntit3 € [31]. This double coset will go back to [31]. 


Since there is one element in this orbit, there is one t; that takes [61] to [31]. 


e Ntgti -t3 = Ntetets = Ntzta € [34]. This double coset will go back to [34]. Since 


there is one element in this orbit, there is one t; that takes [61] to [34]. 


e Ntgt; -t4 = Ntg € [6] . This double coset will go back to [6]. Since there is one 
element in this orbit, there is one ¢; that takes [61] to [6]. 


e Ntgt, -tg = Ntgtgtitgtz = Ntgtgtgtats = Ntgtats © [343] . So that, this is a new 
double coset, which extends our graph from [61] to [343]. Since there is one element 


in this orbit, there is one t; that takes [61] to [343]. 
Word of Length Three [343]: 


Again we need to find the point stabilizer of 3 , 4 and 3. This is denoted by N*“ in this 
case will be the identity. Therefore, we need to find the permutations in N that fixes 3, 
4 and 3. The group stabilizer, N43). Now, using our relations; 

= N(tgtat3)b2)(45) = Negtsts = Ntgtats > (1,2)(4,5) ¢ N&*), and 

=> N(tstatz) 2345.6) = Ntytst) = Ntiteti = Ntitststi = Ntetatst: = Ntetatate 


Al 


= Ntgtits = Ntgtgtitst3 = Nt3t3tetatz = Ntgtatz > (1,2,3)(4,5,6) € N@®), 
= N(343) > ((1, 2, 3)(4, 5, 6), (1, 2)(4,5)). Thus, |.N343)| = 6. So, the number of single 
|N 


cosets in [343] is ——- = — = 1. In order to find these 1 single coset, we need to deter- 
|N@G43)) ~~ 6 


mine the transversals (right coset representatives) of N‘ 
double coset [343] are: {Ntgtat3}. Now, we need to find the orbits of N@*°) to advance to 
the next double coset. From the generator of N43) > ((1,2,3)(4,5,6), (1,2)(4,5)), the 
orbits of N48) on {1,2,3,4,5,6} are: {1,2,3} and {4,5,6}. Considering a representative 


343) A single distinct cosets of the 


from each orbit of N43), we will choose the following representative from each orbit: 


e Ntgtat3-t3 = Nt3tate = Nt3t3t; = Nteti € [61]. This double coset will go back to 
[61]. Since there are 3 elements in this orbit, there are 3 t;s that take [343] to [61]. 


e Ntgtat3z - te = Ntzta € [34]. This double coset go back to [34]. Since there are 3 
elements in this orbit, there are 3 t;s that take [343] to [34]. 


Conclusion: 


The double coset enumeration gives that 
ec (Mla IME IE IM I I 

~ IN| |N@| [NED] INGO) | |W] — [WGD| — [N(343)| 
(14+34+34+3+46+3+41) x 6 = (20 x 6) = 120. A Cayley diagram of G over S3 is given 


below.. 


Figure 6.2: Cayley Diagram for S; Over S3 
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6.4 Construction Of L2(8) 


Double Coset Enumeration [2(8) Over 2? 


We take the progenitor 2** : 27, where 2*4 is the free product of 4 copies of the cyclic 
groups of order 2, and 2? is the group of automorphisms of 2*4 which permutes the four 
symmetric generators by conjugation and factor it by the three relations 

(zyx) tytgtytgtitgt; = 1, (x)°tytetytotytot tet; = 1, and (ay)tytaty = 1. 

The double coset enumeration partitions the image of the group G as a union double 
cosets NgN where g € 2** : 2?. Thus, we can find the set of elements gj, go, ... of G such 
that G= NqiNUNg2N U..., and for each 7, we have g; = pjw;, where p; € N, and w;, is 


a word in the t;s. Hence, the double coset decomposition is given by 
G=Nu,NUNw2NUNwW3N U..... ; 


where w, = e (the identity). We perform a double coset enumeration of the group 
eo: 


over 22. We will show 
[(zyx)t]", [xt]®, [(xy)¢]? 


Drscie 
~ [(wyx)t}", [wt]?, (ey) 4]? 


A symmetric presentation of the progenitor 2** : 2? is given by: 


~ I9(8). 


7 ta 
G<x,y,t>:=Group<x,y,t|x°2,y°2, (x,y) ,t°2>; 


G factored by (x « y* a *t)", (a *t)®, and (x *« y* t)? which simplify to 
(xyx) "ty tgtytgtytgty = 1, (x)%tytoty tot, tet tet, = 1, and (xy)3tytat; = 1. Show simplifica- 
tion where N & 2? = (x,y), where x ~ (1,2)(3,4) and y ~ (1,3)(2,4), and t = ty. 
Using computer-based program - Magma : 

1. The order of the group, |G| is equal to 504. 

2. There are 36 double cosets in this double cosets enumeration of G over N. 
Relations 

We see that 

(I) [(zyx)t}? =1 > (xyx)*¢(eye)® eur)” pave)" ¢(eye)* (aye)? 4(eye)? ¢(aye)? =e 

= (1,3)(2,4)tytgtitgtitst; = 1 => Ntytgtytstit3t, = 1. 

Moreover, if we conjugate the previous relation by all elements in 


2? = {e, (1, 2)(3, 4), (1, 3)(2, 4), (1, 4)(2,3)}, we obtain: 


1. ((1,3)(2, 4)trtgtitgtitst: = 1)° > (1,3)(2, 4)titstitstitsty = 1. 

2. ((1,3)(2,4)titgtitgtitgt; = 1)\b27O4 = (2, 4)(1,3)totatotatetats = 1. 
3. ((1,3)(2, 4)trtatitgtitst, = 1) bPO4 = (3, 1)(4,2)tgtytgtitgtits = 1. 
4. ((1,3)(2, 4)tytgtitgtitgty = 1)0%) = (4, 2)(3, 1)tatotatotatota = 1. 


(II) [xt]? =1>5 ()9t(2)" 4) 4@* £2)? 4)" @)* 42)" 4@)" 4” =] 
> (1, 2)(3, 4)tytotytatytetitety = 15> Notytotitotitottet; = 1. 


Moreover, if we conjugate the previous relation by all elements in 27, we obtain 
1. ((1,2)(3,4)tytotitotitetitoty = 1)° > (1,2)(3, 4)titetitetitotitet; = 1. 
2. ((1,2)(3, 4)titotitetitetitetr = 1)%?C4 = (2, 1)(4, 3)totitotitotitetite = 1. 
3. ((1,2)(3, 4)trtotitetitotitet; = 1) CIC = (3,4)(1, 2)tgtatgtatgtatgtats = 1. 
4. ((1,2)(3, 4)tytotitetitoty tot; = 1)0@%) = (4,3)(2, 1)tatgtatgtatgtatgts = 1. 


(III) [(xy)t]? = 1 => (xy)3ee9? ey) 4? = 1 
=> (1,4)(3, 2)titaty =1 > Ntitat, = 1. 


Moreover, if we conjugate the previous relation by all elements in 27, we obtain 
1. (46. 2)hth a1) S(LAB.2iiaey at 
2. ((1,4)(3, 2)trtaty = 1)\22C = (2,3)(4,1)totgzt2 = 1 
3. ((1,4)(3, 2)trtat = 1)C9C4 = (3, 2)(1, 4)tgtots = 1 
4. ((1,4)(3, 2)tytaty = 1)0@) = (4, 1)(2, 3)tatit, = 1 
Double Coset [x]: 


We start with the double coset NeN, where e is the word of length zero, denoted 
by [x]. We have 


NeN ={Nen:ne€ N}={Ne}={N} 
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So, the double coset NeN consists of the single coset N. Thus, 5 = : = 1 

Note, since N is transitive on {1,2,3,4}, we take a representative coset N from [x] and 
a representative from {1,2,3,4} and determine the double coset to which Nt; belongs, 
where 7 € {1,2,3,4}. We consider 7 = 1, so Nt is the representative coset, and hence we 
will have a new double coset Nt; N which can denoted by [1]. There will be four possibles 


t;s in [*] that will advance to the next double cosets [1]. 
Word of Length One [1]: 


We consider the double coset NwN, where w is a word of length one. Nt; N = {Nti|n € N} 
= [1]. We need to find the point stabilizer of 1. So, NtiN = [1] = {Nt?|n € N} = 
{Nt N, Nt2N, Nt3N, NtsN}. Since, the point stabilizer of 1 in the subgroup N is the 
permutations in N that fixes 1 and permute the rest of the element in the set {1, 2,3, 4}. 


Note: NY = {n € N|ti” = ti} > (e). 


ss eae: ae 
[IN@] ~ 1 4. 


Now, the orbits of N“ on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a represen- 


Since |N(| = 1 then the number of single cosets in [1] is 


tative from each orbit, and determine the double cosets to which Nt,t; belongs for each 
i € {1,2,3,4}. 
e Nt, +t; = Nt? = N € [x]. This double coset will go back to [x]. Since there is one 


element in this orbit, there is one t; that takes [1] to [x]. 


e Nt, - tg = Ntytg € [12]. This is a new double coset, which will extend the Cayley 
graph from [1] to [12]. Since there is one element in this orbit, there is one t; that 


takes [1] to [12]. 


e Nt; - t3 = Ntit3 € [13]. This is a new double coset, which extends our graph from 
[1] to [13]. Since there is one element in this orbit, there is one t; that takes [1] to 


[13]. 


e Nt, -t4 = Ntyt4 = Nt, € [1]. This is double coset will collapse. Since there is one 
element in this orbit, there is one t; that takes [1] to [1]. 


Word of Length Two [12], and [13]: 


(i) We are at a new double coset [12], NtijteN = {N(tit2)"|n € N}. Now, to determine 


all the single cosets of this double cosets, we need to determine the point stabilizer N!, 
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this means finding the set of elements that fix 1 and 2 in N and permute the rest of the 


elements in the set {1,2,3,4}. Note: N“?) = {n € N|(t,t2)" = tyt2} > (e). 


IN] _ 4 
[NG@2)) ~~ 1 4. 


Now, the orbits of N@?) on {1,2,3,4} are {1}, {2}, {3} , and {4}. We choose a repre- 


Since |N“@?)| = 1 then the number of single cosets in [12] is 


sentative from each orbit, and determine the double cosets to which Nt,tgt; belongs for 


each i € {1,2,3, 4}. 


e Ntytg- ty = Ntytgt, € [121]. This is a new double coset, which extends our graph 
from [12] to [121]. Since there is one element in this orbit, there is one t; that takes 


[12] to [121]. 


e Ntit2-t2 = Nt,t2 € [1]. This double coset will go back to [1]. Since there is one 
element in this orbit, there is one t; that takes [12] to [1]. 


e Ntit2-t3 = Ntitgt3 = Ntatz € [13]. This double coset will go to [13]. Since there 


is one element in this orbit, there is one t; that takes [12] to [13]. 


e Ntitz-t4 € [124] . So, this is a new double coset, which extends our graph from 
[12] to [124]. Since there is one element in this orbit, there is one ¢; that takes [12] 
to [124]. 


(ii) We are at a new double coset [13], Ntit3N = {N(tits)"|n € N}. Now, to determine 
all the single cosets of this double cosets, we need to determine the point stabilizer N1°, 
this means finding the set of elements that fix 1 and 3 in N and permute the rest of the 


elements in the set {1,2,3,4}. Note: N“8) = {n € N|(t,t3)" = tyt3} > (e). 


i on er 
[NG3)| ~~ 1 4. 


Now, the orbits of N“®) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


Since |N“%)| = 1 then the number of single cosets in [13] is 


sentative from each orbit, and determine the double cosets to which Nt,togt; belongs for 


each i € {1,2,3, 4}. 


e Ntitz +t, = Nttgt, € [131]. This is a new double coset, which extends our graph 
from [13] to [131]. Since there is one element in this orbit, there is one t; that takes 


[13] to [131]. 


e Ntits-t3 = Ntit3 € [1]. This double coset will go back to [1]. Since there is one 
element in this orbit, there is one t; that takes [13] to [1]. 
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e Ntit3-t2 = Ntyt3t2 = Ntatg € [12]. This double coset will go to [12]. Since there 


is one element in this orbit, there is one t; that takes [13] to [12]. 


e Ntitz-t4 € [134]. So, this is a new double coset, which extends our graph from [13] 
to [134]. Since there is one element in this orbit, there is one ¢; that takes [13] to 


[134]. 
Word of Length Three [121], [124], [131] and [134]: 


(i) We are at a new double coset [121], Ntitat;N = {N(titet1)"|n € N}. Now, to deter- 
mine all the single cosets of this double cosets, we need to determine the point stabilizer 
N'!, this means finding the set of elements that fix 1, 2, and 1 in N and permute the rest 
of the elements in the set {1,2,3,4}. Note: NO?) = {n € N|(tytot)” = tytot;} > (e). 
Since |N(?)| = 1 then the number of single cosets in [121] is INO Sew, 

Now, the orbits of N@?)) on {1,2,3,4} are {1}, {2}, {3} , and {4}. We choose a repre- 


sentative from each orbit, and determine the double cosets to which Nt tgt)t; belongs for 


each i € {1,2,3, 4}. 


e Ntytoty -t1 = Ntytgt? € [12]. This double coset will go back to [12]. Since there is 
one element in this orbit, there is one t; that takes [121] to [12]. 


e Ntitgt; - t2 € [1212]. This is a new double coset, which extends our graph from 
[121] to [1212]. Since there is one element in this orbit, there is one t; that takes 
[121] to [1212]. 


e Ntytgt; - tz € [1213]. This is a new double coset, which extends our graph from 
[121] to [1213]. Since there is one element in this orbit, there is one t; that takes 
[121] to [1213]. 


e Ntytgt, -t4 = Ntytotit, = Ntgtzt, € [124]. This double coset will go to [124]. Since 
there is one element in this orbit, there is one t; that takes [121] to [124]. 


(ii) We are at a new double coset [124], Ntitat4N = {N(titets)”|n € N}. Now, to deter- 
mine all the single cosets of this double cosets, we need to determine the point stabilizer of 
N'*4 this means finding the set of elements that fix 1, 2 and, 4 in N and permute the rest 
of the elements in the set {1,2,3,4}. Note: N@?4) = {n € N|(tytot4)” = tytota} > (e). 


Since |N(24)| = 1 then the number of single cosets in [124] is Nez as 
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Now, the orbits of N@?4) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 
sentative from each orbit, and determine the double cosets to which Ntjtgt4t; belongs for 


each i € {1,2,3, 4}. 


e Ntytot,-t; = Ntytatat, = Ntgtzt4 € [121]. This double coset will go to [121]. Since 
there is one element in this orbit, there is one t; that takes [124] to [121]. 


e Ntytgt4 - to € [1242]. This is a new double coset, which extends our graph from 
[124] to [1242]. Since there is one element in this orbit, there is one t; that takes 
[124] to [1242]. 


e Ntitgt4 - tz € [1243]. This is a new double coset, which extends our graph from 
[124] to [1243]. Since there is one element in this orbit, there is one t; that extend 
[124] to [1243]. 


e Ntytot,-t4 = Ntitg € [12]. This double coset will go back to [12]. Since there is 
one element in this orbit, there is one t; that takes [124] to [12]. 


(iii) We are at a new double coset [131], Ntit3t;N = {N(tit3t1)"|n € N}. Now, to deter- 
mine all the single cosets of this double cosets, we need to determine the point stabilizer 
N}3!, this means finding the set of elements that fix 1, 3, and 1 in N and permute the rest 
of the elements in the set {1,2,3,4}. Note: N@3) — {n € N|(tytgt1)” = tyt3t1} > (e). 
Since |N“3)| = 1 then the number of single cosets in [131] is iNasmy =f=4. 

Now, the orbits of N@3) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


sentative from each orbit, and determine the double cosets to which Nt t3t,t; belongs for 


each i € {1,2,3, 4}. 


e Ntitgty -t1 = Ntit3t? € [13]. This double coset will go back to [13]. Since there is 
one element in this orbit, there is one t; that takes [131] to [13]. 


e Ntitgt, -t3 = Ntit3tit3 = Ntyt3t; € [131]. This double coset will collapse. Since 


there is one element in this orbit, there is one ¢; that extend [131] to itself. 


e Ntitgt, -t2 € [1312]. This is a new double coset, which extends our graph from 
[131] to [1312]. Since there is one element in this orbit, there is one t; that takes 
[131] to [1312]. 
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e Ntitgt,-t4 = Ntitgtit, = Ntatgt, € [134]. This double coset will go to [134]. Since 
there is one element in this orbit, there is one t; that takes [131] to [134]. 


(iv) We are at a new double coset [134], Ntit3t4N = {N(tit3t4)"|n € N}. Now, to deter- 
mine all the single cosets of this double cosets, we need to determine the point stabilizer of 
N14 this means finding the set of elements that fix 1, 3 and 4 in N and permute the rest 
of the elements in the set {1,2,3,4}. Note: N@8) = {n € N|(tit3ta)"” = tyt3ta} > (e). 
Since |N(!54)| = 1 then the number of single cosets in [134] is Noa Soad 

Now, the orbits of N@#4) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


sentative from each orbit, and determine the double cosets to which Nt ,t3t4t; belongs for 


each i € {1,2,3, 4}. 


e Ntitgt4-t, = Ntitgtaty = Ntgtota € [131]. This double coset will go back to [131]. 
Since there is one element in this orbit, there is one t; that takes [134] to [131]. 


e Ntitgt4 -t2 € [1342]. This is a new double coset, which extends our graph from 
[134] to [1342]. Since there is one element in this orbit, there is one t; that takes 
[134] to [1342]. 


e Nt tgt4- tz € [1343]. This is a new double coset, which extends our graph from 
[131] to [1343]. Since there is one element in this orbit, there is one t; that takes 
[131] to [1343]. 


e Ntitgt4-t4 = Ntit3 € [13]. So that, this double coset will go back to [13]. Since 
there is one element in this orbit, there is one t; that takes [131] to [13]. 


Word of Length four [1212], [1213], [1242], [1243], [1312], [1342] and [1343]: 


(i) We are at a new double coset [1212], NtitotiteN = {N(titetite)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N!?!*, this means finding the set of elements that fix 1, 2, 1, and 2 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N(212) = {n € N|(tytotit2)” = tytot te} > (e). 

Since |N(!?!2)| — 1 then the number of single cosets in [1212] is inatay, ee 

Now, the orbits of N“?!?) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 
sentative from each orbit, and determine the double cosets to which Ntytgtitot; belongs 


for each i € {1,2,3, 4}. 
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e Ntytotita-ty = Ntitotitety = Nt tot ite € [1212]. This is double coset will collapse. 
Since there is one element in this orbit, there is one ¢; that takes [1212] to [1212]. 


e Ntytgtyt2 + t2 € [121]. This double coset will go back to [121]. Since there is one 
element in this orbit, there is one t; that takes [1212] to [121]. 


e Ntjtotitg -t3 = Ntytotytatz = Ntgtgtatg € [1213]. This double coset will go to 
[1213]. Since there is one element in this orbit, there is one t; that takes [1212] to 
[1213]. 


e Ntytgtyt2-t4 € [12124]. So, this is a new double coset, which extends our graph 
from [1212] to [12124]. Since there is one element in this orbit, there is one t; that 
takes [1212] to [12124]. 


(ii) We are at a new double coset [1213], Ntitatits3N = {N(titetits)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N!?!8, this means finding the set of elements that fix 1, 2, 1, and 3 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N(@?!8) = {n € N|(tytetit3)” = tytott3} > (e). 

Since |N“?!8)| = 1 then the number of single cosets in [1213] is aay ees 

Now, the orbits of N“?!3) on {1,2,3,4} are {1}, {2}, {3} , and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Nt,tott3t; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitgtit3 +t, € [12131]. This is a new double coset, which extends our graph from 
[1213] to [12131]. Since there is one element in this orbit, there is one t; that takes 
[1213] to [12131]. 


e Nitytotit3-te = Ntytotitgte = Ntgtstats © [1212]. This double coset which will go 
to [1212]. Since there is one element in this orbit, there is one t; that extend [1213] 
to [1212]. 


e Ntitgtit3-t3 = Ntytgt, € [121]. This double coset will go back to [121]. Since there 
is one element in this orbit, there is one t; that takes [1213] to [121]. 


e Ntitgtit3 -t4 € [12134] . This is a new double coset, which extends our graph from 
[1213] to [12134]. Since there is one element in this orbit, there is one ¢; that takes 
[1213] to [12134]. 
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(iii) We are at a new double coset [1242], NtytotatgN = {N(titetate)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N14 = e, this means finding the set of elements that fix 1, 2, 4, and 2 in N. 
The coset stabilizers of the coset Ntytotat2, N42). Now, using our relations; 

=> N(titatate) 924) = Negtatots = Ntgtotatets = Ntytotate > (1,3)(2,4) € NO242), 

= N(242) > ((1,3)(2,4)). Thus, |N“?42)| = 2. Since |N(?4?)| = 2 then the number of 
single cosets in [1242] is Wee == 2, 

Now, the orbits of N42) on {1,2,3, 4} are {1,3} and {2,4}. We choose a representative 


from each orbit call, and determine the double cosets to which Ntytot4tet; belongs for 


each 7 € {2,3}. 


e Ntytotate - t3 = Ntitotatetz = Ntatgtite € [1243]. This double coset will sent to 
[1243]. Since there are two elements in this orbit, then there will be two ts that 


take [1242] to [1243]. 


e Ntytgtate - tz € [124]. This double coset will go back to [124]. Since there are two 
elements in this orbit, then there will be two tis that take [1242] to [124]. 


(iv) We are at a new double coset [1243], NtitotatgN = {N(titetat3)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N!?4%, this means finding the set of elements that fix 1, 2, 4, and 3 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N43) = {n € N|(tytetat3)” = tytotat3} > (e). 

Since |N(!?43)| — 1 then the number of single cosets in [1243] is i tiaaay, =e 

Now, the orbits of N48) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


sentative from each orbit, and determine the double cosets to which Ntytgt4t3t; belongs 


for each i € {1,2,3, 4}. 


e Ntitgtatg - ty € [12431]. This is a new double coset, which extends our graph from 
[1243] to [12431]. Since there is one element in this orbit, there is one ¢; that takes 
[1243] to [12431]. 


e Ntytotat3 - tg = Ntytotatgtg = Ntgtgtit3 € [1242]. This double coset will go to 
[1242]. Since there is one element in this orbit, there is one t; that takes [1243] to 
[1242]. 


51 


e Ntitotat3-t3 = Ntytgt4 € [124]. This double coset will go back to [124]. Since there 
is one element in this orbit, there is one t; that takes [1243] to [124]. 


e Ntitgtatg - tq € [12434]. This is a new double coset, which extends our graph from 
[1243] to [12434]. Since there is one element in this orbit, there is one ¢; that takes 
[1243] to [12434]. 


(v) We are at a new double coset [1312], NtitgtitaN = {N(titstite)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N'3!? = e, this means finding the set of elements that fix 1, 3, 1, and 2 in N. 
The coset stabilizers of the coset Nt t3tjt2, N“8!2). Now, using our relations; 

= N(titstita)VC% = Ntatotats = Ntitstitst, = Ntitstit, > (1,4)(2,3) € NOP”), 


=> N(312) > ((1,4)(2,3)). Thus, |N“3!2)| = 2. Since |N(@3!2)| = 2 then the number of 


IN| _ a 
|N(312)| 5 2. 


Now, the orbits of N“3!?) on {1, 2, 3,4} are {1,4}, and {2,3}. We choose a representative 


single cosets in [1312] is 


from each orbit call, and determine the double cosets to which Nt,ts3t tet; belongs for 


each i € {1,2}. 


e Ntitgtyt2 +t, € [13121]. This is a new double coset, which extends our graph from 
[1312] to [13121]. Since there are two element in this orbit, there are two t;s that 
take [1312] to [13121]. 


e Ntitgtyt2 -t2 € [131]. This double coset will go back to [131]. Since there are two 
elements in this orbit, there are two tjs that take [1312] to [131]. 


(vi) We are at a new double coset [1342], NtitstatoaN = {N(titstate)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N1%4?, this means finding the set of elements that fix 1, 3, 4, and 2 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N(342) = {n € N|(tytgtatz)” = tytgtate} > (e). 

Since | N“342)| = 1 then the number of single cosets in [1342] is aay =4 = 4, 

Now, the orbits of (42) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


sentative from each orbit, and determine the double cosets to which Ntyt3t4tot; belongs 


for each i € {1,2,3, 4}. 


e Ntitgtatg -t, € [13421]. This is a new double coset, which extends our graph from 
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[1342] to [13421]. Since there is one element in this orbit, there is one ¢; that takes 
[1342] to [13421]. 


e Ntitgtatg-tg = Ntyt3t4 € [134]. This double coset will go back to [134]. Since there 
is one element in this orbit, there is one t; that takes [1342] to [134]. 


e Ntjtgtatg -t3 = Ntytgtatgtz = Ntgtgtite € [1343]. This double coset will go to 
[1343]. Since there is one element in this orbit, there is one t; that takes [1342] to 
[1343]. 


e Ntytgtato- ty = Nt tgtgtot, = Ntgztitatotate = Ntogtytotate € [12131]. This double 
coset will go to [12131]. Since there is one element in this orbit, there is one ¢; that 


takes [1342] to [12131]. 


(vii) We are at a new double coset [1343], Ntitgt4t3N = {N(titgtat3)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N14, this means finding the set of elements that fix 1, 3, 4, and 3 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N(843) = {n € N|(tytgtat3)” = tytgtat3} > (e). 

Since | N“343)| = 1 then the number of single cosets in [1343] is aS tN 

Now, the orbits of N(%43) on {1,2,3,4} are {1}, {2}, {3} , and {4}. We choose a 


representative from each orbit, and determine the double cosets to which Nt,t3t4t3t; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntit3tatz -t1 € [13431]. This is a new double coset, which extends our graph from 
[1343] to [13431]. Since there is one element in this orbit, there is one t; that takes 
[1343] to [13431]. 


e Niytgtatz - tg = Ntytgtatzt2 = Ntgtgtit3 € [1342]. This double coset will go to 
[1342]. Since there is one element in this orbit, there is one t; that takes [1343] to 
[1349]. 


e Nt tgtat3 - tz € [134]. This double coset will go back to [134]. Since there is one 
element in this orbit, there is one t;s that takes [1343] to [134]. 


e Ntitgt4tg - tq € [13434]. This is a new double coset, which extends our graph from 
[1343] to [13434]. Since there is one element in this orbit, there is one t;s that takes 
[1343] to [13434]. 
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Word of Length five [12124], [12131], [12134], [12431], [12434], [13121], [13421], 
[13431], and [13434]: 


(i) We are at a new double coset [12124], NtitatitetsN = {N(titetitets)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 


stabilizer N!*!?4 = e, this means finding the set of elements that fix 1, 3, 1, and 2 in N. 


(12124) 


The group stabilizer, N . Now, using our relations; 


=> N(titoti tots) O28) = Ntatstat3t, = Ntitotitetita = Nti tot tot 
=> (1,4)(2,3) © NG2124), > n(12124) > ((1, 4)(2,3)). Thus, |N(?!24)) = 2. 


Since |N(1124)| — 2 then the number of single cosets in [12124] is INC =e 2: 


Now, the orbits of N@?!*) on {1,2,3,4} are {1,4}, and {2,3}. We choose a representative 


from each orbit call, and determine the double cosets to which Ntjtgt)totat; belongs for 
each i € {2,4}. 
e Ntytotytet4 - tq € [1212]. This double coset will go to [1212]. Since there are two 
elements in this orbit, there are two tjs that take [12124] to [1212]. 


e Ntytoti tot ‘ to = Ntytgtitotate —= Ntgtgtytatotgte — Ntatytstatat4 E [124313]. This 
double coset will go to [124313]. Since there are two elements in this orbit, there 


are two tjs that take [12124] to [124313]. 


(ii) We are at a new double coset [12131], Ntitetit3tiN = {N(titetitst:)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N‘?!3!, this means finding the set of elements that fix 1, 2, 1, 3, and 
1 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(@?!8) = 
{n € N|(tytotit3t1)” = titottgt1} > (e). 

Since |N“@?!8| = 1 then the number of single cosets in [12131] is ING i 
Now, the orbits of N@?!3) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 


representative from each orbit, and determine the double cosets to which Ntytotit3t,t; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitgtit3t)-t, € [1213]. This double coset will go back to [1213]. Since there is one 
element in this orbit, there is one t; that takes [12131] to [1213]. 


e Ntytotytgt; - to = Ntytotyt3tyt = Ntgtstatotatots = Ntotitatotats = Ntztytotats © 
[13421]. This double coset will go to [13421]. Since there is one element in this 
orbit, there is one t; that takes [12131] to [13421]. 
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e Nitytotitgt, - tg = Ntytottgtytz = Ntztatitsty = Ntotgatgty © [1342]. This double 
coset will go back to [1342]. Since there is one element in this orbit, there is one t; 


that takes [12131] to [1342]. 


e Ntytotyt3t, - ta = Ntytotitgtita = Ntgtgtatot, € [12134]. This double coset will go 
to [12134]. Since there is one element in this orbit, there is one t; that takes [12131] 
to [12134]. 


(iii) We are at a new double coset [12134], Ntitetits3taN = {N(titetitsts)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N1!34 = e, this means finding the set of elements that fix 1, 2, 1, 3, 
and 4 in N. The coset stabilizers of the coset Ntitatit3ta, N(@2134) Note: N(12134) — 
{n € N|(titotit3ta)” = titotitsta} > (e). 

Since | N“?!84)| — 1 then the number of single cosets in [12134] is INCA ee 
Now, the orbits of N“?!54) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 


representative from each orbit, and determine the double cosets to which Ntytotytstat; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntytotit3t4 ‘ ty = Ntytotytgtatr = Ntatgtatot4 E [12131]. This double coset will go 
to [12131]. Since there is one element in this orbit, there is one t; that takes [12134] 
to [12131]. 


e Ntitotitgt4 -t2 € [121342]. This is a new double coset, which extends our graph 
from [12134] to [121342]. Since there is one element in this orbit, there is one t; 
that takes [12134] to [121342]. 


e Ntytotit3t4 - tz € [121343]. This is a new double coset, which extends our graph 
from [12134] to [121343]. Since there is one element in this orbit, there is one t; 
that takes [12134] to [121343]. 


e Ntitgtit3t4-t4 € [1213]. This double coset will go back to [1213]. Since there is one 
element in this orbit, there is one t; that takes [12134] to [1213]. 


(iv) We are at a new double coset [12431], Ntitetat3t;N = {N(titetatst)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 


point stabilizer N!?4%!, this means finding the set of elements that fix 1, 2, 4, 3, and 
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1 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(@?48) = 
{n € N|(titotatgt,)” = tytotat3t,} > (e). 

Since |N(@?483| — 1 then the number of single cosets in [12431] is INCE = .S4 
Now, the orbits of N“@?43) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Ntytotat3tyt; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitgtatgt,-t, € [1243]. This double coset will go back to [1243]. Since there is one 
element in this orbit, there is one t; that takes [12431] to [1243]. 


e Ntitgtatgt -t2 € [124312]. This is a new double coset, which extends our graph 
from [12431] to [124312]. Since there is one element in this orbit, there is one t; 
that takes [12431] to [124312]. 


e Ntitatatzty - tz € [124313]. This is a new double coset, which extends our graph 
from [12431] to [124313]. Since there is one element in this orbit, there is one t; 
that takes [12431] to [124313]. 


e Ntytotatst, ‘ ty = Ntytotatgtita = Ntgtgty tot, E [12434]. This double coset will go 
to [12434]. Since there is one element in this orbit, there is one t; that takes [12431] 
to [12434]. 


(v) We are at a new double coset [12434], NtitatatstsN = {N(titetatsts)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N‘2434, this means finding the set of elements that fix 1, 2, 4, 3, and 
4 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(2434) — 
{n € N|(titotatsta)” = titotatzta} > (e). 

Since | N(?434)| = 1 then the number of single cosets in [12434] is INE So 24, 
Now, the orbits of N“@?44) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Ntytotatstat; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntytotatgt,- ty = Ntytatatgtaty = Ntgtgtytota € [12431]. This double coset will go 
to [12431]. Since there is one element in this orbit, there is one t; that takes [12434] 
to [12431]. 


56 


e Ntytotatgt, -t2 € [124342]. This is a new double coset, which extends our graph 
from [12434] to [124342]. Since there is one element in this orbit, there is one t; 
that takes [12434] to [124342]. 


e Ntitotatgt4 - tz € [124343]. This is a new double coset, which extends our graph 
from [12434] to [124343]. Since there is one element in this orbit, there is one t; 
that takes [12434] to [124343]. 


e Ntitgtat3t4-t4 € [1243]. This double coset will go back to [1243]. Since there is one 
element in this orbit, there is one t; that takes [12434] to [1243]. 


(vi) We are at a new double coset [13121], NtitstitetiN = {N(titstiteti)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N‘%!?!, this means finding the set of elements that fix 1, 3, 1, 2, and 
1 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N@32) — 
{n € N|(titgtitet1)” = titgtitet:} > (e). 

Since |N(“3!2)| = 1 then the number of single cosets in [13121] is INH = 4. 
Now, the orbits of N“@8!2)) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 


representative from each orbit, and determine the double cosets to which Ntyt3tytat,t; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitgtitgt)-t, € [1312]. This double coset will go back to [1312]. Since there is one 
element in this orbit, there is one t; that takes [13121] to [1312]. 


e Ntytgtitety - to = Ntytgtitotite = Ntgtgtotytotyte = Ntgtatotitot, © [124343]. This 
double coset will go to [124343]. Since there is one element in this orbit, there is 


one t; that takes [13121] to [124343]. 


e Nt tgttot)-t3 = Ntytgtitotit3 = Ntgtotatotgtitz = Ntatotatgtyt3 = Ntytgtatit3tits = 
Ntgtitotit3t; € [13431]. This double coset will go to [13431]. Since there is one 
element in this orbit, there is one t; that takes [13121] to [13431]. 


e Ntytgtytet) -t4 = Ntyt3tytotita = Ntatatatsty = Ntytgtatitgty = Ntgtytotit3tyt3 — 
Ntgtatotgtitgtits = Ntgtotatgt; € [13121]. This double coset will collapse. Since 


there is one element in this orbit, there is one t; that takes [13121] to itself. 
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(vii) We are at a new double coset [13421], Nttgt4tetiN = {N(titstatet)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N‘4?!, this means finding the set of elements that fix 1, 3, 4, 2, and 
1 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N34) = 
{n € N|(titgtatet,)” = tyt3tgtot, } > (e). 

Since | N(342)| — 1 then the number of single cosets in [13421] is ony a7 e4 
Now, the orbits of N42) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 


representative from each orbit, and determine the double cosets to which Ntytstatatyt; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitgtatet,-t, € [1342]. This double coset will go back to [1342]. Since there is one 
element in this orbit, there is one t; that takes [13421] to [1342]. 


e Ntytgtatet -t2 € [134212]. This is a new double coset, which extends our graph 
from [13421] to [134212]. Since there is one element in this orbit, there is one t; 
that takes [13421] to [134212]. 


e Ntitgtqtot; - tz € [134213]. This is a new double coset, which extends our graph 
from [13421] to [134213]. Since there is one element in this orbit, there is one t; 
that takes [13421] to [134213]. 


e Ntytgtatet, -t4 = Ntitgtatetit, = Ntatotitgt, = Néitotgtitsti = Ntgtatstits € 
[12131]. This double coset will go to [12131]. Since there is one element in this 
orbit, there is one t; that takes [13421] to [12131]. 


(viii) We are at a new double coset [13431], Ntitgtatst,N = {N(titstatsti)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N'%4%!, this means finding the set of elements that fix 1, 3, 4, 3, and 
1 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(8483) — 
{n € N|(titstat3t1)” = titgtat3t1} > (e). 

Since |N(!5431)| — 1 then the number of single cosets in [13431] is INGEST) == 4, 
Now, the orbits of N@431) on {1,2,3,4} are {1}, {2}, {3} , and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Ntytstat3t,t; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitgtqtgt) -t, € [1343]. This double coset will go back to [1343]. Since there is one 
element in this orbit, there is one ¢; that takes [13431] to [1343]. 
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e Ntitgtatgt, -t2 € [134312]. This is a new double coset, which extends our graph 
from [13431] to [134312]. Since there is one element in this orbit, there is one t; 
that takes [13431] to [134312]. 


e Ntytgtatgt, -t3 = Ntyt3tatstit3 = Ntatotatt3tit3 = Ntatotatotit3t its 
= Ntgtatotatyt3ty = Ntgtytgtatgty € [13121]. This double coset will go to [13121]. 
Since there is one element in this orbit, there is one t; that takes [13431] to [13121]. 


e Ntytgtatgty , t4 = Ntytgtatgtita = Ntatoaty tot, € [13434]. This double coset will go 
to [13434]. Since there is one element in this orbit, there is one t; that takes [13431] 
to [13434]. 


(viii) We are at a new double coset [13434], Ntitgtatst4N = {N(titgtatst4)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N‘°4°4 = e, this means finding the set of the elements that fix 1, 3, 4, 
3, and 4 in N. The coset stabilizers of the coset Nt tgtatgts, N@884). Now, using our 
relations; 

= N(titztatgts)tIC% = Ntotatstats 

= Ntotgtatgtatz = Ntytgtatgta > (1,2)(3,4) € NO8434), 

=> N(13434) > ((1,2)(3,4)). Thus, |.N43484)| = 2. Since |N(3434)| = 2 then the number of 
single cosets in [13434] is INCE, == 2: 

Now, the orbits of N(8434) on {1, 2,3, 4} are {1,2}, and {3,4}. We choose a representative 
from each orbit call, {1}, and determine the double cosets to which Ntit3tat3tat; belongs 


for each i € {1,4}. 


e Niytgtatgta-t) = Ntytgtatgtat, = Ntgtgtytot4 € [13431]. This double coset will sent 
to [13431]. Since there are two elements in this orbits, there are two t;s that take 


[13434] to [13431]. 


e Ntitgtatgt4 -t4 € [1343]. This double coset will back to [1343]. Since there are two 
elements in this orbit, there are two t;s that take [13434] to [1343]. 


Word of Length Six [121342], [121343], [124312], [124313],[124342],[124343] , 
[134212], [134213], and [134312]: 


(i) We are at a new double coset [121342], NtitotitstateN = {N(titatitstate)"|n € N}. 


Now, to determine all the single cosets of this double cosets, we need to determine the 
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point stabilizer N!?!42 — e, this means finding the set of elements that fix 1, 2, 1, 3, 4, 
and 2 in N. The group stabilizer, N(@?1342), Now, using our relations; 

=> N(tytotit3tate)b 9? = Netgtatgtitota = Ntytotit3tatg > (1,3)(2,4) € NO21542), 

= N21342) > ((1,3)(2,4)). Thus, |.NV?1542)| — 2. Since |N(?1842)| — 2 then the number 


2 
Now, the orbits of N@?!842) on {1,2,3,4} are {1,3}, and {2,4}. We choose a represen- 


of single cosets in [12124] is INCITS =4=2. 
tative from each orbit, and determine the double cosets to which Ntytott3tatat; belongs 
for each i € {2,3}. 


e Ntitotytgtatg - tg € [12134]. This double coset will go to [12134]. Since there are 
two elements in this orbit, there are two tis that take [121342] to [12134]. 


e Ntytotytgtate -t3 = Ntytatitstatets = Ntatstatotite = Ntytoatatitotite 
= Ntgtitgtitotytety = Niztatstotitoty tot = Ntatgtatot te — [121343]. This double 


coset will go to [121343]. Since there are two elements in this orbit, there are two 


tis that take [121342] to [121343]. 


(ii) We are at a new double coset [121343], NtitatitstatgN = {N(titetitstat3)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N1?!%43, this means finding the set of elements that fix 1, 2, 1, 3, 4, and 
3 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(!?!943) — 
{n € N|(titotit3tats)” = tytotitgtats} > (e). 

Since | N(?!843)| — 1 then the number of single cosets in [121343] is iNOS = 4 
Now, the orbits of N@?!543) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Ntytotyt3tat3t; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitotitgtats -t, € [1243124]. This will go to [1243124]. Since there is one element 
in this orbit, there is one ¢; that takes [121343] to [1243124]. 


e Niytotitgtats - to = Ntitotitstatzt2 = Ntatstatotits € [121342]. This double coset 
will go to [121342]. Since there is one element in this orbit, there is one t; that takes 


[121343] to [121349]. 


e Ntitotitgtats- tz = Ntytotit3t4 € [12134]. This double coset will go back to [12134]. 
Since there is one element in this orbit, there is one t; that takes [121343] to [12134]. 
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e Ntytotit3tats -t4 € [124312]. This double coset will go to [124312]. Since there is 
one element in this orbit, there is one t; that takes [121343] to [124312]. 


(iii) We are at a new double coset [124312], Nt tatatstiteN = {N(titetatstite)"|n © N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N‘?43!* — e, this means finding the set of elements that fix 1, 2, 4, 3, 1, 
and 2 in N. Note: N(?4312) — {n € N|(tytotatstite)” = titgtatgtyt2} > (e). 

Since | N“4312)| — 1 then the number of single cosets in [124312] is iC DENTIy ee 
Now, the orbits of N(@?43!2) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Ntytot4at3ty tat; 


belongs for each 7 € {1, 2,3, 4}. 


e Niytotatgtyte - ty = Ntytotatgti tet; = Ntgtgtit3ztotitot, = Ntatgtitgtotitety 
= Nigtatotatotitotito = Ntztotatetatot totite = Ntytotatitotite = Ntatztatety te 
€ [121343]. This double coset will go back to [121343]. Since there is one element 
in this orbit, there is one t; that takes [124312] to [121343]. 


e Ntitotatztit, - tg € [12431]. This double coset will go back to [12431]. Since there 
is one element in this orbit, there is one t; that takes [124312] to [12431]. 


e Ntytotatgtito-t3 = Ntytatatgt tots = Ntagtgtitotate € [124313]. This double coset 
will go back to [124313]. Since there is one element in this orbit, there is one t; that 
takes [124312] to [124313]. 


e Ntytotatgtytg - tq € [1243124]. This is a new double coset, which extends our graph 
from [124312] to [1243124]. Since there is one element in this orbit, there is one t; 
that takes [124312] to [1243124]. 


(iv) We are at a new double coset [124313], NtitatatstitgN = {N(titatatstits)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N124!5, this means finding the set of elements that fix 1, 2, 4, 3, 1, and 
3 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(24318) — 
{n € N|(titotatztits)” = titotatgtits} > (e). 

Since | N“431)| — 1 then the number of single cosets in [124313] is ICSE es 


Now, the orbits of N(@?43!8) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
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representative from each orbit, and determine the double cosets to which Ntytotat3t)t3t; 


belongs for each 7 € {1, 2,3, 4}. 


e Nitytotatgti tz -ty = Ntytotatgtit3ty = Ntgtgtatitgtitgt, = Ntatgtati tat tsty 
= Ntotitotitz = Ntstatgtatgto = Ntgtatgtato € [12124]. This double coset will go to 


[12124]. Since there is one element in this orbit, there is one t; that takes [124313] 
to [12124]. 


e Ntytotatgtit3 - to = Ntytotatgtyt3ta = Ntagtgtitotat3 € [124312]. This double coset 
will go to [124312]. Since there is one element in this orbit, there is one t; that takes 


[124313] to [124319]. 


e Ntitotatztits - t3 € [12431]. This double coset will go back to [12431]. Since there 
is one element in this orbit, there is one t; that takes [124313] to [12431]. 


e Ntytotatgt ts -t4 = Ntytotatstitsta = Ntatztitotatetaty 
= Ntytotitatotatotaty = Ntytotitatotatotyt, = Ntgtatgtytot, = Ntgtatgtatot, 
— Ntgztatgtatgtoty = Ntotytotit3ty = Ntgtgtotatytst, = Ntytotatstits € [124313]. 


This double coset will collapse. Since there is one element in this orbit, there is one 


t; that takes [124313] to itself. 


(v) We are at a new double coset [124342], NtitotatstatoN = {N(titetatstate)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N!24%4?, this means finding the set of elements that fix 1, 2, 4, 3, 4, and 
2 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(24342) — 
{n € N|(titotatgtate)” = tytotatgtate} > (e). 

Since |N(!?4342)| — 1 then the number of single cosets in [124342] is TC, is 
Now, the orbits of N“?4342) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Ntytotatstatat; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitotatgtate - ty, € [1243421]. This is a new double coset, which extends our graph 
from [124342] to [1243421]. Since there is one element in this orbit, there is one t; 
that takes [124342] to [1243421]. 


e Ntitotatgtate - tg € [12434]. This double coset will go back to [12434]. Since there 
is one element in this orbit, there is one t; that takes [124342] to [12434]. 
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e Ntytotatgtato- tg = Ntytatatgtatots = Ntgtgtitotyte € [124343]. This double coset 
will go to [124343]. Since there is one element in this orbit, there is one t; that takes 


[124342] to [124343]. 


e Ntitotatgtatg-t4 € [124343]. This double coset will go back to [124343]. Since there 
is one element in this orbit, there is one t; that takes [124342] to [124343]. 


(vi) We are at a new double coset [124343], NtitatatstatgN = {N(titatatstat3)"|n © N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N!24%49, this means finding the set of elements that fix 1, 2, 4, 3, 4, and 
3 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(124343) — 
{n € N|(titgtatgtatz)” = titetatgtatz} > (e). 

Since |N(!24343)| — 1 then the number of single cosets in [124343] is ICD i 
Now, the orbits of N(?4343) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Ntytotatstats3t; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitotatztatz -t1 € [1243431]. This is a new double coset, which extends our graph 
from [124343] to [1243431]. Since there is one element in this orbit, there is one t; 
that takes [124343] to [1243431]. 


e Ntytotatgtats - to = Ntytotatgtatgzta = Ntagtgtitotyt3 © [124342]. This double coset 
will go to [124342]. Since there is one element in this orbit, there is one t; that takes 


[124343] to [124349]. 


e Ntitotatgtats - tz € [12434]. This double coset will go back to [12434]. Since there 
is one element in this orbit, there is one t; that takes [124343] to [12434]. 


e Ntytotatgtats -t4 = Ntitotatgtatgta = Ntagtotgtatstatgt, = Ntztyit3tat3 
= Ntotatatatits = Ntotgatetit3 € [13121]. This double coset will go back to [13121]. 
Since there is one element in this orbit, there is one t,; that takes [124343] to [13121]. 


(vii) We are at a new double coset [134212], NtytstatotitaN = {N(titstatetite)"|n © 
N}. Now, to determine all the single cosets of this double cosets, we need to deter- 
mine the point stabilizer N'%4?!*, this means finding the set of elements that fix 1, 


3, 4, 2, 1, and 2 in N and permute the rest of the elements in the set {1, 2,3, 4}. 
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=> N(tytgtatotyt2)b272" = Ntgtgtgtitot, = tytgtatetite > (1, 2)(3,4) € N{342!2), 

— N(134212) > ((1,2)(3,4)). Thus, |N(942!2)| — 2. Since |N(34212)| — 2 then the number 
of single cosets in [12124] is INCHED =$=%. 

Now, the orbits of N(*4?!2) on {1,2,3,4} are {1,2}, and {3,4}. We choose a represen- 
tative from each orbit, and determine the double cosets to which Ntytst4tet tat; belongs 


for each i € {2,3}. 


e Ntitgtatotit, - tg € [13421]. This double coset will go back to [13421]. Since there 
are two elements in this orbit, there is two tjs that take [134212] to [13421]. 


e Ntytgtatotitg-t3 = Ntytgtatati tats = Ntagtotitgt4to € [134213]. This double coset 
go to [134213]. Since there are two elements in this orbit, there is two tjs that take 


[134212] to [134213]. 


(viii) We are at a new double coset [134213], Ntitstatatits3N = {N(titstatetit3)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N1%4?!8, this means finding the set of elements that fix 1, 3, 4, 2, 1, and 
3 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N (134213) — 
{n € N|(titgtatotits)” = tytstatotit3} > (e). 

Since | N“34213)| — 1 then the number of single cosets in [134213] is INO SETSy =f=4. 
Now, the orbits of N(*4?!8) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Ntytg3t4tot)t3t; 


belongs for each 7 € {1, 2,3, 4}. 


e Nt tgtatotits -ty = Ntytgtatotitsty = Ntgtotitotstytgt; = Ntotatgtatgtits 
= Ntgtytotitotitats = Ntzgtotytot tot tats = Ntgtotytotats E [134312]. This double 
coset will go to [134312]. Since there is one element in this orbit, there is one t; 


that takes [134213] to [134312]. 


e Ntytgtatotits - to = Ntyt3tatotit3to = Ntagtotitgt4t3 € [134212]. This double coset 
will go to [134212]. Since there is one element in this orbit, there is one t; that takes 
[134213] to [134212]. 


e Ntitgtatotits - tz € [13421]. This double coset will go back to [13421]. Since there 
is one element in this orbit, there is one t; that takes [134213] to [13421]. 
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e Ntitgtatotits -t4 € [1243124]. This double coset will go to [1243124]. Since there is 
one element in this orbit, there is one t; that takes [134213] to [1243124]. 


(viii) We are at a new double coset [134312], Ntytgtat3titeN = {N(titstatstite)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N1°4!*, this means finding the set of elements that fix 1, 3, 4, 3, 1, and 
2 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N (134312) 
{n € N|(titgtatztito)” = tytgtatgtito} > (e). 

Since |N(!54312)| — 1 then the number of single cosets in [134312] is NC RTTy = =A, 
Now, the orbits of N(@%43!2) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double cosets to which Ntytg3t4t3ttat; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntytgtatgtyt, - ty € [1243124]. This double coset will go to [134213]. Since there is 
one element in this orbit, there is one t; that takes [134312] to [1243124]. 


e Ntitgtatgtitg - tg € [13431]. This double coset will go back to [13431]. Since there 
is one element in this orbit, there is one t; that takes [134312] to [13431]. 


e Ntitgtatgtitg - tz € [1243431]. This double coset will go back to [1243431]. Since 
there is one element in this orbit, there is one t; that takes [134312] to [1243431]. 


e Ntitgtatg3tyt, -t4 € [134213]. This double coset will go to [134213]. Since there is 
one element in this orbit, there is one t; that takes [134312] to [134213]. 


Word of Length seven [1243421], [1243124], and [1243431]: 


(i) We are at a new double coset [1243421], NtytotatgtatetyN = {N(titotatgtatets)"|n © 
N}. Now, to determine all the single cosets of this double cosets, we need to determine 
the point stabilizer N1?4%4?!, this means finding the set of elements that fix 1, 2, 4, 3, 4, 2, 
and 1 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N (243421) — 
{n € N|(titotatgtatots)” = titotatstatoti} > ((1, 2)(3, 4), (1,3)(2, 4), (1, 4)(2, 3)). 

Since |.N“?4342)| — 4 then the number of single cosets in [1243421] is Tea So a1 
Now, the orbits of N(@?43421) on {1,2,3,4} are {1,2,3,4}. We choose a representative 
from the orbit, and determine the double cosets to which Ntytgtatstatetit, which will go 


back to [124342]. . 
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(ii) We are at a new double coset [1243124], NtitatatstitetaN = {N(titetatgtitets)” 

ln € N}. Now, to determine all the single cosets of this double cosets, we need to 
determine the point stabilizer N!*4°!*4, this means finding the set of elements that fix 
1, 2, 4, 3, 1, 2, and 4 in N and permute the rest of the elements in the set {1,2,3, 4}. 
Note: N(1243124) — {n © N|(titotatgtytet4)” = tytotatgtytota} > (e). 

Since |N(243124)| — 1 then the number of single cosets in [1243124] is elmira =F =4, 


Now, the orbits of N(@43!24) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 


representative from each orbit, and determine the double cosets to which Ntytotatstytatat; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitotatgtitets - ty € [121343]. This double coset will go back to [121343]. Since 
there is one element in this orbit, there is one t; that takes [1243421] to [121343]. 


e Ntytotatgtytet, - tg € [134312]. This double coset will go to [134312]. Since there is 
one element in this orbit, there is one t; that takes [1243421] to [134312]. 


e Ntytotatgty tat, - tz € [134213]. This double coset will go to [124343]. Since there is 
one element in this orbit, there is one t; that takes [1243421] to [134213]. 


e Ntytotatgty tat, -t4 € [124312]. This double coset will go back to [124312]. Since 
there is one element in this orbit, there is one t; that takes [1243124] to [124312]. 


(iii) We are at a new double coset [1243431], Ntytotatstat3t,N = {N(titatatstats 

t1)"|n € N}. Now, to determine all the single cosets of this double cosets, we need to 
determine the point stabilizer N!?4°43!, this means finding the set of elements that fix 
1, 2, 4, 3, 4, 3, and 1 in N and permute the rest of the elements in the set {1,2,3, 4}. 
Note: N(243431) — {n € N|(tytotatgtatgt,)” = tytotatgtatsti} > (e). 

Since | N(@24343))| — 1 then the number of single cosets in [1243431] is Tes) =7=4 


Now, the orbits of N(249431) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 


representative from each orbit, and determine the double cosets to which Ntytoatatstatstyt; 


belongs for each 7 € {1, 2,3, 4}. 


e Ntitotatgtatst, -t, € [124343]. This double coset will go back to [124343]. Since 
there is one element in this orbit, there is one t; that takes [1243431] to [124343]. 


e Ntytotatgtatgty - tg € [13431]. This double coset will go to [1243431]. Since there is 
one element in this orbit, there is one t; that takes [1243431] to [13431]. 
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e Ntytotatgtatgt, - tz € [13421]. This double coset will go to [134312]. Since there is 
one element in this orbit, there is one t; that takes [1243431] to [134312]. 


e Ntytotatgtatst, -t4 € [13121]. This double coset will go back to [13121]. Since there 
is one element in this orbit, there is one t; that takes [1243431] to [13121]. 


Conclusion: 


The double coset enumeration gives that 

G| <(|N|+|NtiN| + |NtiteN| + |Ntit3N| + |NtitetaN| + |NtitetiN| + |NtitstaN| + 
Ntytgt,N| + |NtytotatoN| + |NtitotatszN| + |NtytotitoN| + |NtitotitszN|+ |NtitgtatoN 
+ |NtytgtatzN| + |NtitgtitoN| + |NtytotatgtaN| + |Ntytotatgt;N| + |NtitotitetaN| + 
NtytotytgtaN| + |Ntytotyt3t,N| + |Ntytgtatot,N| + |NtytgtatgtaN| + |Ntytgtatgt,N| + 
NtytgtitotiN| + |NtitotatgtatoN| + |NetitotatgtatgN| + |NtitotatgtitoN| + |Ntitotats 
t1tg3N| + |NtitotitgtatoN|+ |NtitotitstatzN| + |NtitgtatotrtoN| + |NtitgtatotitzN| + 
NtytgtatgtitoN| + |Ntytotatgtatot; N| + |Ntitotatgtatgt; N| + |NtytotatgtytotaN| ) x |N| 
=(14+44444444444444244444444444244444244444442 

4+4444444444+442444244444144+4) x 4= (126 x 4) = 504. A Cayley 


diagram of G over [2(8) is given below. 
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u 1 : [1243431] 
[124343] a_i 


[124312] 


Ce 


[13431] 


Figure 6.3: Cayley Diagram for L2(8) Over 2? 
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Chapter 7 
Simple Groups 


Definition 7.1. Jf X is a G-set, then a block is a subset B of X such that, for each 
g € G, either gB = B or gBN B= ¢ (of course, gB = {gx: x € B}). 


Note: The blocks ¢, X, and one-point subsets; any other block is called non- 


trivial. 


Definition 7.2. A transitive G-set X is primitive if it contains no nontrivial block; 


otherwise, it is umprimitive. 
Theorem 7.3. Every doubly transitive G-set X is primitive. 


Theorem 7.4. (Iwasawa,1941): 
Let G = G" (such a group is called perfect) and let X be a faithful primitive G-set. If 
there is x € X and an abelian normal subgroup K «Gy whose conjugates {gKg—!:g € G} 


generate G, then G is simple. 


7.1 The Group L2(8) Over 2? 


Example 7.5. Prove the following group is simple by using its Cayley diagram. 


Vie a ts 
C= aya Pape 2°) 


Solution: In order to prove G is simple, we need to shou; 


Step 1: (G acts faithfully and primitively) 
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(i) Suppose we have the G-set call it X and we have the subset B of X, then to show G 
is primitive we will show that G is transitive and has no nontrivial blocks of X under the 
action G. 

By using the Cayley diagram of G, we have X = {N, Nt, Nto, Nt3, Nta,..., Ntiteta 
tgtitota, Ntotytgtatotit3N, Ntgtatotytgtato, Ntatgtitotatsti}; Note: |X| = 126. 

We know X is a transitive G-set by using the diagram (since any group G represented by 
a Cayley diagram is transitive). Next, we note that if B is a block of X under the action 
of G then |B| has to divide |X|. 


So, possible orders of B are positive divisors of 126. 


= |B] = 1,2,3,6,7, 9, 63, 42, 21, 18, 14, 126. 


We will discard the orders 1 and 126 because those are trivial blocks. Now, a nontrivial 
block must be of size 2, 3, ... , or 63. Let B be a nontrivial block and N € B. Then if 
Ntytetate € B, we show that X has a system of blocks of imperatively of size 2. 

X= BUBtHU BU... U Btatgttotatgt, Since G is transitive, but X has a nontrivial 
block, then G dose not acts primitively. 

(ii) We show G acts faithfully on X, we know that G acts on X implies there exists a 
homomorphism 

f:G— Sz, where (|X| = 126). 

By First Isomorphic Theorem, G/kerf = f(G). So, if kerf =1 then G = f(G). Only 
elements of N fix N that implies Gy is the point stabilizer of 1 in G, Gy =N. 

=> |G| = 126 x |Gi| = 126 x |N| = 126 x 36 = 504. 

=> |G| = 504. 

From Cayley Diagram, |G| = 504. G will not be faithful on X if kerf>1 and |G|>504. 
Thus, G acts faithfully on |X| since kerf = 1. 

Thus, G acts faithfully on X, but it dose not acts primitively . 


Step 2: G is perfect (G =G’') 


Note: G= (a, Y; t) = (t, tg, ts, ta) and = (as y) = (Ch; 2)(3, 4), (1, 3)(2, 4)), 
oy (1,4) 273). Would <6 S40) aa 
We know that 2?/ = ([z, yl lxz,y € a) that implies the following; 


70 


Since 2? is ablian (27)’ = {e}. We note G = (ty, to, t3, ta) since x = tytotytetyteti tet; and 
y = tyt3tytgt,t3t1. In order to have G =G’, we will use our relations to prove one of the 
tis in G’. 

Let us take this relation (1, 4)(3,2) = tytati 

=> (1,4)(3, 2) = tytat, => (1,4)(3, 2)ta = titatita > taty = ttatyta. 

=> tty = [t1, ta] > tati € G’ > (tati)“' EC". 

Let us take the other relations which are tit3tytatits = (1, 2)(3, 4)tetitstatgtate 

and tytgtgtotitgt4 = totitgtatotyts. 

In the relation tit3titetits = (1, 2)(3, 4)tetitstatztate we replace tatit3ta by using the re- 
lation tytgtatotitgt4 = totytgtatetytz => totytgt, = titgtatotitgtatgtyte. 

=> tytgtytotits = (1, 2)(3, 4)trtatatatitgtatstitotatate. 

=> (tytgtitotits)"? = ((1,2)(3, 4)titgtatotitstatgtitotstate)®. 

tsts = (1, 2)(3, 4)tatitgtatotitgtatgtytotstatets. 


=> tgtytgtytoty 

=> tgtytgtitet, = (1, 2)(3, d)tatitgtatotitgtatgtitotgtatots. 

= tgtitgtitet, = (1, 2)(3, 4)tatitgtatotitgtatgtitotgtatats. 

=> tgtitgtitoty = (1,3) (2, 4)tatgtateti tgtatgtytotstatets. 

=> tgtytgtrtot, = (1, 3)(2, d)tatgtatotitgtatgtitotata(1, 4)(2, 3)te. 
= tgtitgtitet: = (1, 2)(3, 4)titotitgtatettotatgtotite. 


= tgtitgt, = (1, 2)(3, 4)titotitgtatety totatgtotitotite. 

=> [tg, ti] = (1, 2)(3, 4)titotitgtatetytetats(1, 2) (3, 4)totitetr. 
t3, t1] = totitotatgtrtotitgtatoti tet. 

tz, ti] = totytotytgttotitgtatotitoty. 

t3, ti]titotite = totitotatgtitotitat,. 

tz, ti]|t1, t2] = tetitotatstitotitsta. 

t3, t1][t1, to] = to(1, 4)(2, 3)tatgtatitgtytoty tata. 


{4 u4uy 


$Y YR YUH Y YY YU YU YY UY YY EY de ee ede bee 


t3, t1 
t3, ty 
t3,t1 
t3, ty 
t3, t4 
t3,t1 
t3, ty 
t3, t1 
13, t1 
t3,t1 
t3, t1 
13, t1 
t3, t1 
t3,t1 
t3,t1 
t3, ty 
t3, t1 
t3,t1 
t3, ty 
t3, ty 
t3, ty 
t3,t1 
t3, t1 
t3, ty 
t3,t1 
t3, t1 
13, t1 
t3, ty 
t3, ty 
t3,t1 
t3, t1 
t3, ty 


ty, ta] = 
t1, t2| = 
ty, ta] = 
t1, ta] = 
t1, t2| = 
t, ta] = 
t, ta] = 
t1, t2| = 
t1, ta 
ty, te 
ty, te 
t1, ta 
ty, te 
ty, te 
t1, ta 
ty, te 
C1, te 
t1, tg 
ty, te 
t1, te 
t1, ta 
ty, te 
t1, te 
t1, ta 
t1, te 
ty, te 
t1, ta 
ty, te 
t1, te 
ty, te 
t1, te 
ty, te 
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t3tatgtatyt3tytotytgt,. 
tatitetatitativotitatc. 
tatatgtatgt,t3tytotit3t,. 


t ilotitotgt  tgtotitsts. 
t itotytetstitgte(1, 4)(2 , 3)tatataty. 


(1, 


= (1, 


A) (2, 3)tatgtatztotatotstatetaty. 
A) (2, 3)tatgtatgztotatetztatotaty. 


tita = (1, 4)(2, 3)tatgtatstotatotstate. 


t4, ty 
t4, ty 
ta, ty 
t4, ty 
t4,ti] = 
ta, ti] = 
t4,ti] = 
t4,ti] = 
ta, ty 
t4, ty 
t4, ty 
ta, ty 
t4, ty 
t4, ty 
ta, ty 
t4, ty 
t4, ty 
ta, ty 
t4, ty 
t4, ty 
ta, ty 
t4, ty 


= (1, 4)(2, 3)tatgta(1, 4)(2, 3)tgtatotgtate. 

= tytotitgtatetgtate. 

= tytotitgtatytgtate. 

= tytgtytgta(1, 4)(2, 3)totate. 

= (1,4) (2, 3)tatgtatotitotate. 
(1,4)(2,3)tatstatatitotato. 
(1, 4)(2, 3)tatgtatoty (1, 3)(2, 4)totatots. 
(1, 2)(3, 4)totitetatgtetatota. 

tatotate = (1, 2)(3, 4)totitetats. 

ta, to] = (1,2)(3, 4)totitotats. 

ta, to] = totrtetitettats. 

t4, to] = totytotitetitats. 

t4, to] = totyte(1, 4)(2, 3)tatgtyt3. 

ta, tz] = (1,4)(2, 3)tgtatgtatgt1t3 

ta, to] = (1,4)(2, 3)tatatgtatgty tg 

t4, to] = (1,4)(2, 3) (1, 2)(3, 4)tgtatgtatits 

t4, to] = (1,3)(2, 4)tstatstatits. 

ta, to] = (1,3)(2,4)tgtata(1, 4)(2, 3)tats. 

ta, to] = (1, 2)(3, 4)totrtotats. 

ta, to] = (1, 2)(3, 4)totitetats 

ta, to] = (1, 2)(3, 4)t2(1, 4) (2, 3)tatgtatrts 

ta, to] = (1,3)(2,4)tgtatgtatits 
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tg, t4|[t1, ta] [ta, tr] [ta, te] = (1,3) (2, 4)tgtatgta(1, 3) (2, 4)titgtitgty. 
t3, t1||t1, to||ta, t1|\t4, to} = tytotytotyt3tyt3ty. 

t3,t1]|t1, ta] |ta, t1||t4, toltitstits = titotitety. 

t3, t4|[t1, ta] [ta, ti] [ta, te][t1, ts] = tytotitaty. 

t3, t1][t1, te] [ta, ta] [ta, ta][ti, tstitetite = th. 

tg, t4|[t1, ta] [ta, tr] [ta, te] (tr, t3][t1, te] = t. 

tg, t1|[t1, ta] [ta, t1][ta, ta] [t1, ts] [t1, te] € G". 

We see the left side is belong to G’, so the right side is belong to G’. 


{buy bY dy 


| 
| 
| 
| 


=> t, € G’, then we conjugate t; by x, y, and xy to get to, t3, and t4 respectively. So, 
G’ > (t1, te, t3,ta), and we know that G = (ty, ta, tz, ta). 

So, G’ > (t1, ta, t3,t4) = G, and G’ CG 

=> G'=G. Thus, G is perfect. 


Step 3: Show there exists a normal ablian subgroup K <G such that K <«G;, 
and the conjugates of K generate G. 


We now that G; = N = 2?, and N is a normal ablian subgroup of G has center 1. 
So, K = N=, 2)(8,,4), 1, 3)(2,4)): 

Let take (1,4)(2,3) € K, and let use the relations tytotit4 = (1, 4) (2, 3)tatsty 

and tytotyt3tatgt4 = tatgtytota3 to find (1,4)(2,3). 

We will replace tytat, in the first relation by using the second relation as the following, 
titi = tabstitotutsiatatis. 

=> tytotit, = (1,4) (2, 3)tatgt: > tatgtitotatgtatgtagta = (1, 4)(2, 3)tatgtt. 

= tytgtitotatgtatgtatgtatitgta = (1, 4)(2, 3). 

Since tatg3titotatgtatgtatgtatitst, © K andts eG 

We have (tatgtitetatztatztatztatytgta)4 € KC 

=> (ta)! (tatgtytotatgtatgtatgtatitgta)(ta) © KS 

= tytatgtytotatstatstatgtatitatats € KC 

= tat totatstatgtatgtatits € KC 

=> tatytotatgtatgtatgtatits € KC 

=> tgtyto(1, 2)(3, 4)tatgtytg © KC 

=> (1,2)(3, 4)tatetitatgtits € KS 

= (1,2)(3, 4)tatotitatgtits © KC 
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=> (1,2)(3, 4)tate(1, 4) (2, 3)titgtits € KS 

=> (1,3)(2, 4)tit3titstits € KC 

=> (1,3)(2, 4)titgtitgtits € KS 

>t, Ee Ko 

SRO DART ty 

=> K&D {ty, te, ts, t4} =< th, te, t3,t4 >= G 

SG=K. 

From steps (1), (2), and (3) we find that G is not simple group because G does not act 


primitively. 
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7.2 Construction Of The Simple Group L»(13) 
Double Coset Enumeration of L2(13) Over M and N 


We take the progenitor 2*4 : 27, where 9*" is the free product of 4 copies of the cyclic 
groups of order 2, and 2? is the group of automorphisms of 2** which permutes the four 
symmetric generators by conjugation and factor it by the three relations 
(xyx)'tytgtitgtit3t, = 1, (x)%titety = 1, and (xy) tytatitatitatitatitatitat; = 1. We see 
G is large group and Magma can not compute it’s elements by using Schreier System. 
Then, we find the Maximal Subgroups of G call it M to decrease the cosets from 75 to 
28 single coset. 

We get that M = (S3 : 2) = (x,y, y *t * (t¥) * (£7) « (f9) xt ((t7)¥) et (t)). 

Now, We take the progenitor 2*4 : (53 : 2), where 2** is the free product of 4 copies of 
the cyclic groups of order 2, and M is the group of automorphisms of 2** which permutes 
the four symmetric generators by conjugation and factor it by above relations. 

The double coset enumeration partitions the image of the group G as a union double 
cosets MgN where g € 2*4 : 2”. Thus, we can find the set of elements gj, g2,... of G such 
that G= Mg,N U Mg2N U..., and for each 7, we have g; = pjw;, where p; © M, and w; 


is a word in the t;s. Hence, the double coset decomposition is given by 
G= Mu,NUMu2NU Mwu3QN vU..., 
where w, = e (the identity). We perform a double coset enumeration of the group 


Dar Sas 2) 


2? and 93: 2. We will sh 
[Cayar)e]*, [ae |*, [Cage]? ON SE et ORAS e will show 


EEO s 
ae (LA (Co) 


A symmetric presentation of the progenitor 2** : 2? is given by: 


/ eg 
G<x,y,t>:=Group<x,y,t|x°2,y°2, (x,y) ,t°2>; 
G factored by (x * y*x a *t)’ =1, (a *t)? =1, and (x « y*t)! = 1 which simplifies to 
(zyx) "ty tgtytgti tty a i (x) ty toty = 1, and (xy) ty tatytatytatytatitatitaty =]; 


We have N © 2? = (x,y), where x ~ (1, 2)(3,4) and y ~ (1,3)(2, 4), 
M = (2, y,y *t * (t¥) * (¢”) * (tY) x E & ((7)¥) & t * (t4)), and t = ty. The order of M is 12. 


Using computer-based program - Magma : 

1. The order of the group, |G| is equal to 1092. 

2. There are 28 double cosets in this double cosets enumeration of G over M and N. 
Relations 


We see that 

(I) [(xyx)t]’ =1> (xy)? ¢ry2)® ¢(eye)” eye)? (ayer)? ¢(wye)? ¢(eye)! ¢(eye)° —| 
> (1,3)(2, 4)titgtitgtitsty =1 > Mititstytgtitst, = 1. 

Moreover, if we conjugate the previous relation by all elements in 


2?= fe, (1, 2)(3, 4), (1,3)(2, 4), (1, 4)(2,3)}, we obtain different relations. 
1. ((1,3)(2, 4)trtgtitgtytgt, = 1)° => (1,3)(2, 4)titgtytgtyt3t, = 1. 
2. ((1,3)(2, 4)titgtitgtitst, = 1)\°278 = (2, 4)(1, 3)totatetatotate = 1. 
3. ((1,3)(2, 4)trtgtitgtitsty = 1)FPO4 = (3, 1)(4,2)tgtytgtitgtits = 1. 
4. ((1,3)(2, 4)tytgtitgtitgty = 1)0%) = (4, 2)(3, 1)tatotatotatots = 1. 
(II) [at}® =1 > (c)t@"' Or” =1 
=(152)(3;4 titel = 1 = Mitty = 1: 
Moreover, if we conjugate the previous relation by all elements in 27, we obtain 
1. ((1,2)(3, 4)titet: = 1)° = (1, 2)(3, 4)titet: = 1. 
2. ((1,2)(3, 4)titoty = 1)b?E4 = (2,1)(4,3)totyte = 1. 
3. ((1,2)(3, 4)trtot; = 1I)CVE4 = (3, 4)(1, 2)tgtaty = 1. 
4. ((1,2)(3, 4)trtot, = 1)°" 9) = (4,3)(2, 1)tatgts = 1. 


(III) [(xy)t}° = 1 
= (ay) 3¢Ceu)"? glow) law)” ¢eu)” ¢(eu)® play)” glen)? ¢(eu)? 4 eu)" ¢ou)® (au)? eau)" gu)? hi 
=> (1, 4) (3, 2)titatytatytatytatytatitaty =1=> Mitytatitati tat tatytati tat, = 1. 


Moreover, if we conjugate the previous relation by all elements in 27, we obtain 


1. ((1,4)(3, 2)titatitatitatitatitatitat = 1)° 
= (1, 4)(3, 2)titatitatitatitatitatitaty =]: 


Dp (1, 4)(3, Q)titatitatitatitatitatitaty = 1)42)64) 
=> (2; 3)(4, 1)totgtotgtatstotgtotgtatste = 1. 
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4)(3, 2)tytatytatitatytatytatytaty = 1)0924 
3, 2)(1, A)tgtatgtotgtotgztotstotgtats =: I 


(3, 2)titatitatitatitatitatitat, = = 1% 4)(2,8) 
1)(2, 3)tatytatitatitatytatitatits = Te 
Double Coset [x]: 


We start with the double coset MeN, where e is the word of length zero denoted by []. 


It also can be represented as 


MeN ={Men:ne N}={Me}={M} 
So, the double coset MeN consists of the single coset M. Thus, a = ‘ =1. 
Note, since M is transitive on {1,2,3,4}, we take a peacbcenbaliee et M from [x] and 
a representative from {1,2,3,4} and determine the double coset to which Mt; belongs, 
where i € {1,2,3,4}. We consider i = 1, so Mt, is the representative coset, and hence 
we will have a new double coset Mt,;N which can denoted by [1]. There will be four 


possibles t;s in [*] that will advance to the next double cosets [1]. 
Word of Length One [1]: 


We consider the double coset MwN, where w is a word of length one. Mt)N = 
{Mt?|n € N} = [1]. We need to find the point stabilizer of 1. So, Mt;N = [1] = 
{Mt}? |n € N} = {MtiN, MtoN, Mt3N, Mt4N}. Since, the point stabilizer of 1 in the 
subgroup N is the oe in N that fixes 1 and permute the rest of the element in 


the set {1,2,3,4}. Note: NO = {ne N|ty” =t1} > (e). 


Es pene ee 
[IN@] ~~ 1 4. 


Now, the orbits of N“ on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a rep- 


Since |N“)| = 1 then the number of single cosets in [1] is 


resentative from each orbit, and determine the double coset that contain Nt,t;, where 


i € {1,2,3,4}. 


e Mt, -t; = Mt? = M € [x]. This double coset will go back to [*]. Since there is one 


element in this orbit, there is one t; that takes [1] to [x]. 


e Mt, - tg = Mtitz = Mt, € [1]. This double coset will collapse. Since there is one 
element in this orbit, there is one t; that takes [1] to [1]. 


77 


e Mt, -t3 = Mtitgs € [13]. This is a new double coset, which will extend the Cayley 
graph from [1] to [13]. Since there is one element in this orbit, there is one t; that 


takes [1] to [13]. 


e Mt, -t4 = Mtyt, € [14]. This is a new double coset, which extends our graph from 
[1] to [14]. Since there is one element in this orbit, there is one t; that takes [1] to 


[14]. 
Word of Length Two [13], and [14]: 


(i) We are at a new double coset [13], Mtjt3N = {M(tit3)"|n € N}. Now, to determine 
all the single cosets of this double cosets, we need to determine the point stabilizer N'°, 
this means finding the set of elements that fix 1 and 3 in N and permutes the rest of the 


elements in the set {1,2,3,4}. Note: N8) = {n € N|(t,t3)” = tyt3} > (e). 


oo 
[NG3)] ~~ T 4. 


Now, the orbits of N!° on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


Since |N(!3)| = 1 then the number of single cosets in [13] is 


sentative from each orbit, and determine the double coset to which Nt,t; belongs for 


i = {1,2,3,4}. 


e Mtit3 +t, = Mtitst, € [131]. This is a new double coset, which extends our graph 
from [13] to [131]. Since there is one element in this orbit, there is one t; that takes 


[13] to [131]. 


e Mtit3 - tg = Mtytst2 € [132]. This is a new double coset, which extends our graph 
from [13] to [132]. Since there is one element in this orbit, there is one t; that takes 


[13] to [132]. 


e Mtits-t3 = Mtyt2 € [1]. This double coset will go back to [1]. Since there is one 
element in this orbit, there is one t; that takes [13] to [1]. 


e Mtitz-t4 = Mtyt3ta = Mtgtz = Mtyt, € [14]. This double coset will send to [14]. 


Since there is one element in this orbit, there is one t; that takes [13] to [14]. 


(ii) We are at a new double coset [14], Mtyt,N = {M(tit4)"|n € N}. Now, to determine 
all the single cosets of this double cosets, we need to determine the point stabilizer N'4, 
this means finding the set of elements that fix 1 and 4 in N and permute the rest of the 
elements in the set {1,2,3,4}. Note: NC) = {n € N|(tita)” = tyta} > (e). 
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fx ee 
[NG4| — 1 4 


Now, the orbits of N“* on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


Since |N“)| = 1 then the number of single cosets in [14] is 


sentative from each orbit, and determine the double coset to which Nt,t4t; belongs for 


i= {1,2,3,4}. 


e Mtyt4-t, = Mtytat; € [141]. This is a new double coset, which extends our graph 
from [14] to [141]. Since there is one element in this orbit, there is one t; that takes 


[14] to [141]. 


e Mtyt4- tg = Mtytate € [142]. This is a new double coset, which extends our graph 
from [14] to [142]. Since there is one element in this orbit, there is one t; that takes 


[14] to [142]. 


e Mtyt4-t3 = Mtytatz = Mtgt, = Mtit3 € [13]. This double coset will go to [13]. 


Since there is one element in this orbit, there is one t; that takes [14] to [13]. 


e Mtyt4-t4 = Mt,t? € [1]. This double coset will go back to [1]. Since there is one 
element in this orbit, there is one t; that takes [14] to [1]. 


Word of Length Three [131], [132], [141] and [142]: 


(i) We are at a new double coset [131], Mtits3t;N = {M(titst1)"|n € N}. Now, to deter- 
mine all the single cosets of this double cosets, we need to determine the point stabilizer 
N!3!, this means finding the set of elements that fix 1, 3, and 1 in N and permute the rest 
of the elements in the set {1,2,3,4}. Note: N@3) = {n © N|(tytgt,)” = tyt3t1} > (e). 
Since |N(3)| = 1 then the number of single cosets in [131] is NOT =o =a, 

Now, the orbits of N@3) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 
sentative from each orbit, and determine the double coset to which Nt,t3t t; belongs for 


i= {1,2,3,4}. 


e Mtitst, -t, = Mtyt3t? € [13]. This double coset will go back to [13]. Since there is 
one element in this orbit, there is one t; that takes [131] to [13]. 


e Mtytgt, - tg = Mtytgtytz = Mtgtat; € [132]. This double coset will go to [132]. 
Since there is one element in this orbit, there is one t; that takes [131] to [132]. 


e Mtyits3t, -t3 = Mtytgtitz = Mtitgt, € [131]. This double coset will collapse. Since 
there is one element in this orbit, there is one t; that takes [131] to [131]. 
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e Mtyt3t; -t4 € [1314]. So that, this is a new double coset, which extends our graph 
from [131] to [1314]. Since there is one element in this orbit, there is one ¢; that 


takes [131] to [1314]. 


(ii) We are at a new double coset [132], Mtit3t2N = {M(tit3t2)"|n € N}. Now, to deter- 
mine all the single cosets of this double cosets, we need to determine the point stabilizer 
N'}°?_ this means finding the set of elements that fix 1, 3, and 2 in N and permute the rest 
of the elements in the set {1,2,3,4}. Note: N82) = {n € N|(tit3tz)” = tyt3t2} > (e). 
Since |N!5?)| = 1 then the number of single cosets in [132] is ino 8 

Now, the orbits of N“?) on {1,2,3,4} are {1}, {2}, {3} , and {4}. We choose a repre- 


sentative from each orbit, and determine the double coset to which Nt,t3tat; belongs for 


i= {1,2,3,4}. 


e Mtytgtz-t, = Mtytgtat, = Mtgtatg € [131]. This double coset will go to [131]. 
Since there is one element in this orbit, there is one t; that takes [132] to [131]. 


e Mtitgtz -t2 = Mtytg € [13]. This double coset will go back to [13]. Since there is 
one element in this orbit, there is one t; that takes [132] to [13]. 


e Mtytg3t2 - t3 € [1323]. This is a new double coset, which extends our graph from 
[132] to [1323]. Since there is one element in this orbit, there is one t; that takes 
[132] to [1323]. 


e Mtytg3t2-t4 € [1324]. This is a new double coset, which extends our graph from 
[132] to [1324]. Since there is one element in this orbit, there is one t; that takes 
[132] to [1324]. 


(iii) We are at a new double coset [141], Mtitat, N = {M (titat,)"|n € N}. Now, to deter- 
mine all the single cosets of this double cosets, we need to determine the point stabilizer 
N'4!, this means finding the set of elements that fix 1, 4, and 1 in N and permute the rest 
of the elements in the set {1,2,3,4}. Note: N@4) = {n € N|(titat,)” = titat;} > (e). 
Since |N(@4| = 1 then the number of single cosets in [141] is nua, ee 

Now, the orbits of N“4) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 
sentative from each orbit, and determine the double coset to which Nt,t4t,t; belongs for 


i= {1,2,3,4}. 
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e Mtytaty -t, = Mtytat? € [14]. This double coset will go back to [14]. Since there is 
one element in this orbit, there one t; that takes [141] to [14]. 


e Mtytat, - tg = Mtytytytg = Mtgtat, € [142]. This double coset will go to [142]. 
Since there is one element in this orbit, there is one t; that takes [141] to [142]. 


e Mtytat, -tz3 = Mtt4tyts € [1413]. So, this is a new double coset, which extends our 
graph from [141] to [1413]. Since there is one element in this orbit, there is one t; 


that takes [141] to [1413]. 


e Mtytat; - t4 € [1414]. So, this is a new double coset, which extends our graph from 
[141] to [1414]. Since there is one element in this orbit, there is one t; that takes 
[141] to [1414]. 


(iv) We are at a new double coset [142], MtitatgN = {M(titate)"|n € N}. Now, to deter- 
mine all the single cosets of this double cosets, we need to determine the point stabilizer 
N'*? this means finding the set of elements that fix 1, 4, and 2 in N and permute the rest 
of the elements in the set {1,2,3,4}. Note: N42) = {n € N|(tytatz)” = tytatz} > (e). 
Since |N“4?)| = 1 then the number of single cosets in [142] is Nua =f=4. 

Now, the orbits of N42) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


sentative from each orbit, and determine the double coset to which Nt,t4tet; belongs for 


i= {1,2,3,4}. 


e Mtytata-t) = Mtytatgt, = Mtgtzt2 € [141]. This double coset will go to [141]. 
Since there is one element in this orbit, there is one t; that takes [142] to [141]. 


e Mtyitate - te = Mtyt, € [14]. This double coset will go back to [14]. Since there is 
one element in this orbit, there is one t; that takes [142] to [14]. 


e Mtytat2 -t3 € [1423]. This is a new double coset, which extends our graph from 
142] to [1423]. Since there is one element in this orbit, there is one t; that takes 
142] to [1423]. 


e Mtytate -t4 € [1424]. This is a new double coset, which extends our graph from 
142] to [1424]. Since there is one element in this orbit, there is one t; that takes 
142] to [1424]. 


Word of Length four [1314], [1323], [1324], [1413], [1414], [1423] and [1424]: 
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(i) We are at a new double coset [1314], MtytgtitaN = {M (titgtit4)"|n € N}. Now, to de- 
termine all the single cosets of this double cosets, we need to determine the point stabilizer 
N}8!4 this means finding the set of elements that fix 1, 3, 1, and 4 in N and permute the 
rest of the elements in the set {1,2,3,4}. Note: N(314) — {n € N|(titgtit4)” = tytgtit4} 
=> (titgtits)1 C4 = totatots = totate(1, 2)(3, 4)tsta = (1, 2)(3, dtitstitsta 

= (1, 2)(3, 4)titgtitgta = (1, 2)(3, 4)(1, 3) (2, 4)titgtit, = (1, 4)(2, 3) ty tgtits 

> ((1,2)(3,4)). 

Since |N“3!4)| — 2 then the number of single cosets in [1314] is asa = 5 = 2: 

Now, the orbits of N“8!4) on {1,2,3,4} are {1,2} and {3,4}. We choose a representa- 


tive from each orbit, and determine the double coset to which Nt t3t,t4t; belongs for 


i= {1,4}. 


e Mtytg3tit4 -t, € [1314]. This is double coset will collapse. Since there are two 
elements in this orbit, there are 2 t;s that take [1314] to [1314]. 


e Mtyt3tit4-t4 € [131]. This double coset will go back to [131]. Since there are two 
elements in this orbit, there are 2 t;s that take [1314] to [131]. 


(ii) We are at a new double coset [1323], Mtit3tet3N = {M(titstets3)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N13, this means finding the set of elements that fix 1, 3, 2, and 3 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N82) = {n € N|(tytgtet3)” = titgtot3} 

=> (titgtetz)E9C4 = tytytaty = (1,3)(2, d)tgtitstitstat 

= (1,3) (2, 4)tgtytgty (1, 2) (3, 4)tgty = (1, 4)(2, 3)tatotatotgty = (1, 2)(3, 4)tatetatgty 

= tstytyt, = tytstots > ((1,3)(2,4)). 

Since |.N3?8)| = 2 then the number of single cosets in [1323] is Wicca ees 


|N‘ 
Now, the orbits of N83) on {1,2,3,4} are {1,3} and {2,4}. We choose a representa- 


tive from each orbit, and determine the double coset to which Nt t3tgt3t; belongs for 
t= 43,4). 


e Mtytg3totz - tz € [132]. This double coset will go back to [132]. Since there are two 
elements in this orbit, there are 2 t;s that take [1323] to [132]. 


e Mitytzgtet3 -t4 = Miytstatz3ta = Mtotatit3 € [1324]. This double coset will go to 
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[1324]. Since there are two elements in this orbit, there are 2 t;s that take [1323] to 
[1324]. 


(iii) We are at a new double coset [1324], MtitstetsN = {M(titstets)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N14, this means finding the set of elements that fix 1, 3, 2, and 4 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N34) = {n € N|(titgtots)” = titzteta} > (e). 

Since | N“3?4)| = 1 then the number of single cosets in [1324] is aS So =. 

Now, the orbits of N“84) on {1,2,3,4} are {1}, {2}, {3} , and {4}. We choose a repre- 


sentative from each orbit, and determine the double coset to which Nt,t3tot4t; belongs 


for 7, = {12,34 ). 


e Mtytg3tot4 - t, € [13241]. This is a new double coset, which extends our graph from 
[1324] to [13241]. Since there is one element in this orbit, there is one ¢; that takes 
[1324] to [13241]. 


e Mtytg3tot4 - tg € [13242]. This is a new double coset, which extends our graph from 
[1324] to [13242]. Since there is one element in this orbit, there is one ¢; that takes 
[1324] to [13242]. 


e Mtytgtota € t3 = Miytstotats = Mtotatt4 € [1323]. This double coset will go to 
[1323]. Since there is one element in this orbit, there is one t; that takes [1324] to 
[1323]. 


e Mtytg3tot4 -t4 € [132]. This double coset will go back to [132]. Since there is one 
element in this orbit, there is one t; that takes [1324] to [132]. 


(iv) We are at a new double coset [1413], MtytatitgN = {M(titatits)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N‘4!°, this means finding the set of elements that fix 1, 4, 1, and 3 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N“4!3) = {n € N|(tytatit3)” = tytatyt3} > (e). 

Since |N4!3)| — 1 then the number of single cosets in [1413] is stay, Seas 

Now, the orbits of N“4!8) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


sentative from each orbit, and determine the double coset to which Nt,t4tit3t; belongs 


for 4 = {12,354}: 
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Mtytatits - t, € [13242]. This double coset will go to [13242]. Since there is one 
element in this orbit, there is one t; that takes [1413] to [13242]. 


Mtytatits - tg € [14132]. This is a new double coset, which extends our graph from 
[1413] to [14132]. Since there is one element in this orbit, there is one t; that takes 
[1413] to [14132]. 


Mtytatits -t3 = Mtyt4t, € [141]. This double coset will go back to [141]. Since 
there is one element in this orbit, there is one t; that takes [1413] to [141]. 


Mtytatitz -t4 = Mtytgtytgta = Mtgtgtgtz € [1414]. This double coset will go to 
[1414]. Since there is one element in this orbit, there is one t; that takes [1413] to 
[1414]. 


(v) We are at a new double coset [1414], MtitatitaN = {M(titatita)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N‘4'4, this means finding the set of elements that fix 1, 4, 1, and 4 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N(414) = {n © N|(tytatita)” = tytatyta} > (e). 

Since |N“4!4)| = 1 then the number of single cosets in [1414] is aay ee 

Now, the orbits of N(4"™) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


sentative from each orbit, and determine the double coset to which Nt,t4tit4t; belongs 


for:¢ = {1,2,3;4}: 


e Mtytatita - ty € [14141]. This is a new double coset, which extends our graph from 
[1414] to [14141]. Since there is one element in this orbit, there is one t; that takes 
[1414] to [14141]. 


e Mtytatit4 - tg € [14142]. This is a new double coset, which extends our graph from 
[1414] to [14142]. Since there is one element in this orbit, there is one ¢; that takes 
[1414] to [14142]. 


e Mtytatyts -t3 = Mtytgtytatz = Mtgtztgt4 € [1413]. This double coset will go back 
to [1413]. Since there is one element in this orbit, there is one t; that takes [1414] 
to [1413]. 


e Mtitatit,-t4 = Mtyt4t, € [141]. This double coset will go back to [141]. Since 
there is one element in this orbit, there is one t; that takes [1414] to [141]. 
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(vi) We are at a new double coset [1423], MtytatotgN = {M(titatats)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N14?°, this means finding the set of elements that fix 1, 4, 2, and 3 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N(@423) = {n € N|(tytatot3)” = tytatgt3} > (e). 

Since | N“4?3)| = 1 then the number of single cosets in [1423] is aay == 4: 

Now, the orbits of N“4?8) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a repre- 


sentative from each orbit, and determine the double coset to which Nt,tatotst; belongs 


for 4 = {1;2, 3,4}. 


e Mtytatets -t, € [14231]. This is a new double coset, which extends our graph from 
[1423] to [14231]. Since there is one element in this orbit, there is one ¢; that takes 
[1423] to [14231]. 


e Mtytatots - tg € [14232]. This is a new double coset, which extends our graph from 
[1423] to [14232]. Since there is one element in this orbit, there is one ¢; that takes 
[1423] to [14232]. 


e Mtytatots -t3 = Mtytate € [142]. This double coset will go back to [142]. Since 
there is one element in this orbit, there is one t; that takes [1423] to [142]. 


e Mtitatet3 - ta = Mtitatotgt4 = Mtgt3tit3 € [1424]. This double coset will go back 
to [1424]. Since there is one element in this orbit, there is one t; that takes [1423] 
to [1424]. 


(vii) We are at a new double coset [1424], MtitytetsN = {M(titatats)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N‘424, this means finding the set of elements that fix 1, 4, 2, and 4 in N and 
permute the rest of the elements in the set {1, 2,3, 4}. 

Note: N“4?4) = {n € N|(titateta)” = titatata} 

=> (titgtots)E9C4 = tztotate = (1,3)(2,4)titetatets = (1, 4)(2, 3)titateta 

> ((1,3)(2,4)). Since |N(424)| = 2 then the number of single cosets in [1424] is Fcc = 
a= 2. 

Now, the orbits of N(424) on {1,2,3,4} are {1,3} and {2,4}. We choose a representa- 
tive from each orbit, and determine the double coset to which Ntjt4tatat; belongs for 


i = {3,4}. 


85 


e Mtytatots -t3 = Mtytatotatz = Mtgtgztyt, € [1423]. This double coset will go back 
to [1423]. Since there are two elements in this orbit, there are 2 t;s that take [1424] 
to [1423]. 


e Mtyitatot,- t4 = Mtytate € [142]. This double coset will go back to [142]. Since 
there are two elements in this orbit, there are 2 tjs that take [1424] to [142]. 


Word of Length five [13241], [13242], [14132], [14141], [14142], [14231], and [14232]: 


(i) We are at a new double coset [13241], Mtyt3tetatiN = {M(titstetat)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N'%?4', this means finding the set of elements that fix 1, 3, 2, 4, and 
1 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N84) — 
{n € N|(titgtotat1)" = titgtgtati} > (e). 

Since |N(!5241)| — 1 then the number of single cosets in [13241] is TGR) as 
Now, the orbits of N24) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 


representative from each orbit, and determine the double coset to which Ntytstot4tyt; 


belongs for 7 = {1, 2,3, 4}. 


e Mtytg3totat, - t, € [1324]. This double coset will go back to [1324]. Since there is 
one element in this orbit, there is one t; that takes [13241] to [1324]. 


e Mtytgtotaty ‘. to = Mit tztotatite = Mtotatytsty E [13242]. This double coset will go 
to [13242]. Since there is one element in this orbit, there is one t; that takes [13241] 
to [1324]. 


e Mtytgtotat, - tz € [132413]. This is a new double coset, which extends our graph 
from [13241] to [132413]. Since there is one element in this orbit, there is one t; 
that takes [13241] to [132413]. 


e Mtytg3totat, -t4 € [132414]. This is a new double coset, which extends our graph 
from [13241] to [132414]. Since there is one element in this orbit, there is one t; 
that takes [13241] to [132414]. 


(ii) We are at a new double coset [13242], MtytstetatgN = {M(titstetate)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 


point stabilizer N14, this means finding the set of elements that fix 1, 3, 2, 4, and 
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2 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(18242) — 
{n € N|(tytgtotat2)” = tytgtotato} > (e). 

Since |N(3?4?)| — 1 then the number of single cosets in [13242] is INGE =fe4. 
Now, the orbits of N84?) on {1,2,3,4} are {1}, {2}, {3} , and {4}. We choose a 
representative from each orbit, and determine the double coset to which Ntytstotatat; 


belongs for 7 = {1,2,3, 4}. 


e Mtytgtotate : ty = Mi tgtotatotr = Mtotatytgte — [13241]. This double coset will go 
back to [13241]. Since there is one element in this orbit, there is one t; that takes 


[13242] to [13241]. 


e Mtitgtotate - tz = Mtitstet, € [1324]. This double coset will go back to [1324]. 
Since there is one element in this orbit, there is one t; that takes [13242] to [1324]. 


e Mitytstatate -t3 = Mt tz3tetatet3 = Misztitatatotats = Mtatytatotats 
= Mtztgtstit, € [14132]. This double coset will go back to [14132]. Since there is 
one element in this orbit, there is one t; that takes [13242] to [14132]. 


e Mtytgtotate . ty = Mtytstotatat, = Mtxztytotate = Mtatytato E [1413]. This double 
coset will go to [1413]. Since there is one element in this orbit, there is one ¢; that 


takes [13242] to [1413]. 


(iii) We are at a new double coset [14132], MtytatitstgN = {M(titatit3t2)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine 
the point stabilizer N‘4!%?, this means finding the set of elements that fix 1, 4, 1, 
3, and 2 in N and permute the rest of the elements in the set {1,2,3,4}. Note: 
N(4182) — {n © N|(tytgtitgte)” = tytatitgt2} 

=> (titatitgt2)I V3) = tytitatets = (1,3) (2, 4)totstatotatetats 

= (1,3)(2, 4)totstatotatotats = (1, 4)(2, 3)titgtetatetats = (1,3)(2, 4)totatitstity 

= tatotitgtitgta = (1,2)(3, 4)tatetstitsta 

= tytytatots = tytatyt3t2 > ((1,4)(2,3)). 


Since | N“4!82)| — 2 then the number of single cosets in [14132] is ey =5=2. 


Now, the orbits of N“4!82) on {1,2,3,4} are {1,4} and {2,3}. We choose a representa- 


tive from each orbit, and determine the double coset to which Ntyt4tt3tat; belongs for 


i= {1,2}. 
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e Méytatitgt - ty = Mtytatitgtot, = Mtotgtetate = Mtatitotatot,s = Mtgtitatots € 
[13242]. This double coset will go back to [13242]. Since there are two elements in 
this orbit, there are 2 t;s that take [14132] to [13242]. 


e Mtytatytgt2 -t2 € [1413]. This double coset will go back to [1413]. Since there are 
two elements in this orbit, there are 2 t;s that take [14132] to [1413]. 


(iv) We are at a new double coset [14141], MtytatitatiN 

= {M(titatitat1)"|n € N}. Now, to determine all the single cosets of this double cosets, 
we need to determine the point stabilizer of N'4"", this means finding the set of elements 
that fix 1, 4, 1, 4, and 1 in N and permute the rest of the elements in the set {1, 2,3, 4}. 
Note: N“4!4) = {n € N|(titatytat1)” = titatitati} > (e). 

Since |N(!4141)| — 1 then the number of single cosets in [14141] is Ia es 
Now, the orbits of N@4!4) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double coset to which Ntytatitatit; 


belongs for 7 = {1, 2,3, 4}. 


e Mtitatitat; -t; € [1414]. This double coset will go back to [1414]. Since there is 
one element in this orbit, there is one t; that takes [14141] to [1414]. 


e Mtytatytaty to = Mtytatytatite = Mtotstotsty E [14142]. This double coset will 
back to [14142]. Since there is one element in this orbit, there is one t; that takes 


[14141] to [14149]. 


e Mtytatitat,- tz € [132414]. This double coset will go to [132414]. Since there is one 
element in this orbit, there is one t; that takes [14141] to [132414]. 


e Mtytatytat, -t4 € [141414]. This is a new double coset, which extends our graph 
from [14141] to [141414]. Since there is one element in this orbit, there is one t; 
that takes [14141] to [141414]. 


(v) We are at a new double coset [14142], MtitatitateN = 
{M (titatitate)"|n € N}. Now, to determine all the single cosets of this double cosets, 
we need to determine the point stabilizer N‘4'?, this means finding the set of elements 
that fix 1, 4, 1, 4, and 2 in N and permute the rest of the elements in the set {1, 2,3, 4}. 
Note: N“4!42) = {n € N|(titatytate)” = tytatytate} > (e). 
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Since | N“4!4?)| = 1 then the number of single cosets in [14142] is Ia a 
Now, the orbits of N44?) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double coset to which Ntytqtytatat; 


belongs for 7 = {1, 2,3, 4}. 


e Mt tatytatg-t) = Mitytatytatoty 
= Mtgtstetgt2 € [14141]. This double coset will go back to [14141]. Since there is 
one element in this orbit, there is one t; that takes [14142] to [14141]. 


e Mtytatytat2 - tg € [1414]. This double coset will go back to [1414]. Since there is 
one element in this orbit, there is one t; that takes [14142] to [1414]. 


e Mtytatitatg-tz € [14142]. This double coset will collapse. Since there is one element 
in this orbit, there is one t; that takes [14142] to [14142]. 


e Mtytatitat2 -t4 € [141424]. This is a new double coset, which extends our graph 
from [14142] to [141424]. Since there is one element in this orbit, there is one t; 
that takes [14142] to [141424]. 


(vi) We are at a new double coset [14231], MtitatetstiN 

= {M (titatetsti)"|n € N}. Now, to determine all the single cosets of this double cosets, 
we need to determine the point stabilizer N‘4?*!, this means finding the set of elements 
that fix 1, 4, 2, 3, and 1 in N and permute the rest of the elements in the set {1, 2,3, 4}. 
Note: N(4231) = {n € N|(t,tatet3t1)” = tytatotgt,} > (e). 

Since |N“4?3)| = 1 then the number of single cosets in [14231] is INE =f=4. 
Now, the orbits of N43) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 


representative from each orbit, and determine the double coset to which N¢tytatotstyt; 
belongs for 7 = {1,2,3, 4}. 
e Mtytatgtst, -t, € [1423]. This double coset will go back to [1423]. Since there is 


one element in this orbit, there is one t; that takes [14231] to [1423]. 


e Mtytatetst, - te = Mitytatatsztite = Mtotsti tat € [14232]. This double coset will go 
back to [14232]. Since there is one element in this orbit, there is one t; that takes 


[14231] to [14232]. 


e Mtytatotst,-t3 € [141424]. This double coset will go to [141424]. Since there is one 
element in this orbit, there is one t; that takes [14231] to [141424]. 
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e Mtytatgtgt,-t4 € [14231]. This double coset will collapse. Since there is one element 
in this orbit, there is one ¢; that takes [14231] to [14231]. 


(vii) We are at a new double coset [14232], MtitatotstgN = {M(titatatste)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine 
the point stabilizer N‘4?°?, this means finding the set of elements that fix 1, 4, 2, 
3, and 2 in N and permute the rest of the elements in the set {1,2,3,4}. Note: 
N (14232) — {7 € N|(tytatgt3te)” = tytatotgt2} 

=> (tytatot3t2)IV2%) = tytytgtotz = tytatytgte > ((1,4)(2, 3)). 

Since |N 14232)! — 2 then the number of single cosets in [14232] is aay > 
Now, the orbits of N(!4282) on {1,2,3,4} are {1,4} and {2,3}. We choose a representa- 


tive from each orbit, and determine the double coset to which Ntjtatot3tet; belongs for 
TA, 2y. 


e Mtytatetste-ty = Mt tatatsztotr = Mtotstitate € [14231]. This double coset will 
back to [14231]. Since there are two elements in this orbit, there are 2 t;s that take 
[14232] to [14231]. 


e Mtytatgtgte - tg € [1423]. This double coset will back to [1423]. Since there are two 
elements in this orbit, there are 2 t;s that take [14232] to [1423]. 


Word of Length six [132413], [132414], [141414], and [141424]: 


(i) We are at a new double coset [132413], Mtitstatatit3N = {M (titstetatits)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N1°?4!5, this means finding the set of elements that fix 1, 3, 2, 4, 1, and 
3 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(!24!8) — 
{n € N|(titgtotatits)” = tyt3tetatits} > (e). 

Since | N(3?413)| — 1 then the number of single cosets in [132413] is INO SEATSy SiS. 
Now, the orbits of N(°4!8) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 


representative from each orbit, and determine the double coset to which Ntyts3totat)t3t; 


belongs for 7 = {1,2,3,4}. 


e Mtytg3tgt4tt3-t, € [132413]. This double coset will collapse to [132413]. Since there 
is one element in this orbit, there is one t; that takes [132413] to [132413]. 
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e Mtytg3totatyt3 - to € [132412]. This is a new double coset, which extends our graph 
from [132413] to [132412]. Since there is one element in this orbit, there is one t; 
that takes [132413] to [132412]. 


e Mtytg3tot4tyt3 -t3 € [132413]. This double coset will go back to [13241]. Since there 
is one element in this orbit, there is one t; that takes [132413] to [13241]. 


e Mtytgtetatits - ta = Mtytztotatitgta = Mtotatytgtots € [132414]. This double coset 
will go to [132414]. Since there is one element in this orbit, there is one t; that takes 


[132413] to [132414]. 


(ii) We are at a new double coset [132414], MtitztetatitaN = {M(titstetatits)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N1°?4!4, this means finding the set of elements that fix 1, 3, 2, 4, 1, and 
4 in N and permute the rest of the elements in the set {1,2,3,4}. Note: N(!24!4) — 
{n € N|(titgtotatita)” = tyt3tetatita} > (e). 

Since | N(32414)| — 1 then the number of single cosets in [132414] is iO SEATay es 
Now, the orbits of N(°?444) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from each orbit, and determine the double coset to which Ntytgtotatytat; 


belongs for 7 = {1, 2,3, 4}. 


e Mt tgtotatit, - t, € [141414]. This double coset will go to [141414]. Since there is 
one element in this orbit, there is one t; that takes [132414] to [141414]. 


e Mtytgtotatit, - tg € [14141]. This is a new double coset, which extends our graph 
from [132414] to [14141]. Since there is one element in this orbit, there is one t; 
that takes [132414] to [14141]. 


e Mtytgtotatit, - tg = Mitytztotati tats = Mtotatitgtot, € [132413]. This double coset 
will go back to [132413]. Since there is one element in this orbit, there is one t; that 
takes [132414] to [132413]. 


e Mt tgtgtatit, - t4 € [13241]. This double coset will back to [13241]. Since there is 
one element in this orbit, there is one t;s that extend [132414] to [13241]. 


91 


(iii) We are at a new double coset [141414], Mtytatitatit4N 

= {M (tytatitatit4)"|n € N}. Now, to determine all the single cosets of this double cosets, 
we need to determine the point stabilizer N‘4!4!4, this means finding the set of elements 
that fix 1, 4, 1, 4, 1, and 4in N and permute the rest of the elements in the set {1, 2,3, 4}. 
Note: N(41414) — {n © N|(tytatitatita)” = tytatytatta} > (e). 

Since |N“4!414)| — 1 then the number of single cosets in [141414] is aay ao a4, 
Now, the orbits of N44) on {1,2,3,4} are {1}, {2}, {3}, and {4}. We choose a 
representative from and determine the double coset to which Ntyt4t)tat,t4t; belongs for 


i= {1,2,3,4}. 


e Mtitatitatit,-t) = Mtytatytatitaty = Mtitatitatyta © [141414]. This double coset 
will collapse to [141414]. Since there is one element in this orbit, there is one t; that 


takes [141414] to [141414]. 


e Mtytatytatt4-t2 € [1414142]. This is a new double coset will go to [1414142], which 
extends our graph from [141414] to [1414142]. Since there is one element in this 
orbit, there is one t; that takes [141414] to [1414142]. 


e Mtyitatytatit, - t3 € [1382414]. This double coset will go to [132414]. Since there is 
one element in this orbit, there is one t; that takes [141414] to [132414]. 


e Mt tatytatyt, -t4 € [14141]. This double coset will go back to [14141]. Since there 
is one element in this orbit, there is one t; that takes [141414] to [14141]. 


(iv) We are at a new double coset [141424], MtitatitatetaN 

= {M (tytatitatet4)"|n € N}. Now, to determine all the single cosets of this double cosets, 
we need to determine the point stabilizer N‘4!4?4, this means finding the set of elements 
that fix 1, 4, 1, 4, 2, and 4 in N and permute the rest of the elements in the set {1, 2,3, 4}. 
Note: N(141424) — {n © N|(tytatitateta)” = tytatytatgta} 

=> (tytatytatot,)127C4 = totgtot3tits = tytatytatota > ((1,2)(3,4)). 

Since | N(4!424)| — 2 then the number of single cosets in [141424] is rarteaTiay S622) 


Now, the orbits of N“4!44) on {1, 2,3, 4} are {1,2} and {3,4}. We choose a representative 


from each orbit, and determine the double coset to which Ntytgtytateat4t; belongs for 


i= {2,4}. 


e Mtytatytatet, - to = Mtytatytatotato = Migztot3tatota = Mtgtytsgtoty, € [14231]. This 
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double coset will go back to [14231]. Since there are two elements in this orbit, 


there are 2 t;s that take [141424] to [14231]. 


e Mtytatitatet, - t4 € [14142]. This double coset will go back to [1423]. Since there 
are two elements in this orbit, there are 2 t;s that take [141424] to [14142]. 


Word of Length seven [1324132] and [1414142]: 


(i) We are at a new double coset [1324132], 

Mtytz3tatatitstaN = {M(titstatatitst2)"|n € N}. Now, to determine all the single cosets 
of this double cosets, we need to determine the point stabilizer N1%?4!°?, this means 
finding the set of elements that fix 1, 4, 1, 4, 1, 4, and 2 in N and permute the rest of 
the elements in the set {1, 2,3, 4}. 

Note: N (1824182) — {n € N|(tytgtgtatitgt2)” = tytgtgtatytgt2} > 

(1, 2)(3, 4), (1, 3)(2, 4), (1, 4)(2,3)). Since |.N924182)| — 4 then the number of single 
cosets in [1324132] is INCI ne 

Now, the orbits of N(324182) on {1,2,3,4} are {1,2,3,4}. If we choose a representative 
from that orbit we will go back to [132413]. 

(ii) We are at a new double coset [1414142], 

MtytatytatitatoN = {M(titatitatitate)"|n € N}. Now, to determine all the single cosets 
of this double cosets, we need to determine the point stabilizer N‘4'4'4?, this means 
finding the set of elements that fix 1, 4, 1, 4, 1, 4, and 2 in N and permute the rest of 
the elements in the set {1, 2,3, 4}. 

Note: N(414142) — {n © N|(titatitatitate)” = titatitatitate} > 

((1,2)(3,4), (1,3)(2,4), (1,4)(2,3)). 

Since |N(414142)| — 4 then the number of single cosets in [1414142] is ia ae 
Now, the orbits of N“4!4!4) on {1,2,3,4} are {1,2,3,4}. If we choose a representative 
from that orbit we will go back to [141414]. 


Conclusion: 


The double coset enumeration gives that 

IG| < ((M| + |Mt,N| + |Mtit3N| + |MtytaN| + |Mtytgt:N| + |Mtyt3teN| 
+ |Mtytat;N| + |MtytatoN| + |MtitgtitaN| + |MtytgtotsN| + |MtitgtotaN| 
+ |Mtytatyt3N|+ |MtytatytaN| + |Mtytatot3N| + |MtytatetsN| 
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+ |Mtytstotat:N| + |MtytgtotatoN| + |MtytatitstoN| 

+ |MtytatytatN| + |MtytatitatoN| + |Mtitatotst, N| + |MeitatotstoN| 

+ |MtytstotatitsN| + |MtytgtotatitaN| + |MtytatitatitaN| + |MtytatitatotaN| 
+ |Mtytstotatyt3toN| + |MtytatytatytatoN|) x |M| 
=(14+4444+444444444424244444444424444+42 
4+44+4444+24444+4+44+241+41)x12 

= (91 x 12) = 1092. A Cayley diagram of G over L2(13) is given below. 
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[1424] 


[14232] 


[1324132] 


[132414] 


19141414] 


[1414142] 


Figure 7.1: Cayley Diagram for L2(13) Over M and N 
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Example 7.6. We prove the following group is simple by using its Cayley diagram. 
= OF 574-2 

[(xyx)t]", [xt], [(wy)t]!° 

Solution: In order to prove G is simple, we need to shou; 


Step 1: (G acts faithfully and primitively) 


= L(18) 


(i) Suppose we have the G-set call it X, then to show G is primitive we will show that G 
is transitive and has no nontrivial blocks of X under the action G. 

By using the Cayley diagram of G, we have 

X = {M, Mt, Mtoe, Mtz, Mt, ..., Mtytatytatitate}, > |X| = 91. 

We know X is transitive G-set by using the diagram (since any group G represented by 
a Cayley diagram is transitive). Next, we note that if B is a block of X under the action 
of G then |B| has to divide |X|, 

So, possible orders of B are positive divisors of 91. Thus |B| = 1,7,13,91. 

We will discard the orders 1 and 91 because these are trivial blocks. Now, a nontrivial 
block must be of size 7, or 18. From the Cayley diagram we see that a nontrivial block of 
size 7 is impossible. We rule out the possibility of a nontrivial block of size 18, here is an 
example, 

Suppose, |B| = 13, and B= {MtytatitatitateN, MtitatitatitaN, Mtytati tat N, 
MtyitztatatitaN}, then 

B = {Mtytatytatitate, Mtytatitatita, Mtotgtotgtots, Mtatitat tat, Mtgtotstotgte, 
Mtytatytat,, Mtotstotste, Mtati tat ta, Mtgtot3tet3, Mtytstotatita, Mtotatit3tats, 
Mtztitatetste, Mtatetztitat }. 


1. Bt, = {Mtotstotstotgte, Mtitatitatitat, Mtotgtetstotst:, Mtatitatita, 
Mtatitaty tate, Mtytatits, Mtytaty tate, Mtatytatitaty, Mtztot3tetsty, 
Mtytgtatatitat, Mtotatytstotgt,, Mtatotgti tate, Mtgtotstita}. 


2. Btop= {Mtytatytatita, Mtytati tat tate, Mtotztots3tot3te, Mtstotstotsty, 
Mitztotgtot3, Mtotstot3t1, Mtotstot3, Mtatytati tate, Mtztot3totsta, 
Mt tgtotati tate, Mtotat  t3totste, Mt3titatats, Mtztytatotsty } ; 


3. Btz = {Mtytatitatitatets, Mtotstotstota, Mtots3tet3te, Mtati tat taty ts, 
Miztotgtotgtot3, Mtytatytatit3, Mtotgtot3tet3, Mtztot3tot4, Mt3teatsta, 
Mtoatatitgtota, Mtotatitgte, Mtgtitatotgtats, Mtatatstitatits}. 


96 


4. Bty = {Mtytatitatitatots, Mtitatitat, Mtitatitatits, Mtatitatitatita, 
Mitsztotgtotgtots, Mtytatitatit4, Mtotgtotgtets, Mtatytat,, Mtatitatyts, 
Mtytgtotat,, Mtyts3totati ts, Mt3titatotstets, Mtatot3tytatit,} : 


We can see clearly that {Bt,, Bto, Btz, Bts4} 1B # ¢ and {Bty, Bto, Btz3, Bts} # B, so 
B has no possibilities for a block of any of the sizes. 

Since G is transitive, and X has no a nontrivial block, then G acts primitively. (ii) To 
show G act faithful on X, we know that G acts on X implies there exist homomorphism 
f:G— Sx, where |X| = 91. 

By First Isomorphic Theorem, G/kerf = f(G). So, if kerf =1 then G = f(G). Only 
elements of M fiz M that implies G1 is the point stabilizer of 1 in G, Gy = M. 

=> |G| = 91 x |Gi| = 91 x |M| = 91 x 12 = 1092. 

=> |G| = 1092. 

From Cayley Diagram, |G| = 1092. G will not be faithful on X if ker f>1 and |G|>1092. 
Thus, G acts faithfully on |X| since kerf =1. Thus, G acts faithfully and primitively on 
Xx. 


Step 2: G is perfect (G =G’') 


Note: G = (2, y,t) = (1, te, ts, ta) and 2? = (x,y) = (1, 2)(3, 4), (1, 3)(2, 4)), 
ny = (1,4)(2,3) 

Let us take the relation tytgtytatytat3 = tytsgtotat  tatotsty tatatsta. 

Conjugate the both sides by ty as (tytatytatytat3)" = (tytgtotatytatotgtytatotgte)" 
=> (t7)(titatitatitats) (tr) -_ (t7 +) (titgtotaty tatotgtytatotgta)(t1). 

=> tytytatytatytatst, = tytytstotytytyatotstitatetztety. 

=> tatytatytatgt, = tgtotgtytatotgtytyalot3taty. 

=> tytitatrtatgt) = tgtgtatitatotgtitatetgtoty. 

= [t4, tijtatgti = tgtotatytatotstitatatstaty. 

t4,t1] = tgtotatytatotgt tatotstotitytsts. 

t4, ty] = tgtotatitatotgty tatotgtotititst,. 

t4, ti] = tgtetatytatotgtitatatgztotsta. 

ta, ty] = tgtotatitatotstitatotgte(1, 2)(3, 4)ts. 

ta, t1] = (1, 2)(3, 4)tatitgtotgtitatotgtrtatyts. 

t4, ti] = (1, 2) (3, 4)tatitgtotgty tatotgtitatits. 


{4 HY 4 


ta, ty] = (1, 2)(3, 4)tatytgtotgtytatetgtyta(1, 3) (2, 4)titgtrtgty. 
ta, t1] = (1,4)(2, 3)totgtitatitgtotatitatotitaty tat. 

ta, t1] = (1,4)(2, 3)totgtitatitgtotatitgtotitgty tat. 

ta, tiltitgtits = (1,4) (2, 3)totgtitatitgtotatitgtety. 

ta, t1][t1, t3] = (1,4)(2, 3)totgtrtatitgtotatrts (1, 2)(3, 4)te 
ta, t1][t1, t3] = (1,3)(2, 4)titatotgtotatitatotate. 

ta, ta][ti, t3] = (1,3) (2, 4)titatotgtotatitgtotaty. 

ta, t1][t1, t3] = (1,3)(2, 4)trtatotgtotaty ts (1, 3)(2, 4)totateta. 
ta, t1][t1, t3] = tatotatitatotgtitotatota. 

ta, ta][t1, t3] = tgtetatitatotgtitotateta. 

ta, t1][t1, taltatotato = tatotatitatotgty. 


ta, ti] (t1, t3]|ta, to] = tgtata(1, 2)(3, 4)totgtatitgty. 

ta, ty] (t1, t3] (ta, to] = (1, 2)(3, 4)tatytgtotgtetitgty. 

ta, ti] (t1, t3]|t4, to] = (1, 2)(3, 4)tatitgtotstetitgtr. 

ta, ta] (t1, ta] (ta, t2] = (1, 2)(3, 4)tatitgtetste(1, 3)(2, 4)titstits. 
ta, ty] (t1, ta] (ta, to] = (1, 4)(2, 3)totgtytatytatytgty ts. 

ta, ti] (t1, ts] [t4, to] = (1, 4)(2, 3)tatstitatitatitgtits. 

ta, ti][t1, ts] (ta, toltstitst: = (1, 4)(2,3)tetstitatita. 


ta, t1][t1, ta][ta, ta] ta, taltatatat: = (1,4) (2, 3)tots. 

ta, t1||t1, t3||t4, ta] |t3, t1}|ta, t1| = totgtotgtotgztotztotzte. 

ta, t1||t1, t3||€4, ta||ts, t1}|ta, t1| = tatgtotgtotztotztotgte. 

ta, t1|\t1, t3||ta, ta||t3, t1\|t4, C1 |totgtetgtetztets = tots3te. 

t4, €1]|t1, t3] |t4, ta} |ts, €1)[t4, t1] |t2, t3] [t2, t3] = tgtgtet3te. 

ta, t1][t1, t3] ta, tal |ts, t1]|C4, t1| [f2, t3}|te, t3] = tgt3tatste. 

t4, ty] |t1, t3] ta, ta} |ts, t1]|t4, t1]|t2, t3}[to, t3|tatgtets = ts. 

ta, t1][t1, ts] [ta, ta][ts, ta][ta, ta] [t2, ta] [te, ta] [te, t3] = ts. 

ta, ta] [t1, t3] [ta, ta] [ts, t1][ta, t1][te, ta] [te, ts] [te, ts] EG’. 

We see the left side is belong to G’, so the right side is belong to G’. 


$Y} YT HY YY YUH YY YU YU YY YY 


=> t3 € G’, then we conjugate tz by x, y, and xy to get ta, ty, 

and tz respectively. So, G’ > (ti, te, t3,ta), and we know that G = (ty, ta, tz, ta). 
So, G’ > (t1, ta, t3,t4) = G, and G’ CG 

=> G'=G. Thus, G is perfect. 
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Step 3: Show there exists a normal ablian subgroup K <G such that K <«G, 


and the conjugates of K generate G. 


We now that G, = N = 2?, and N is a normal ablian subgroup of G has center 1. 
So, K = N = (1,2)(3,4), (1,3)(2,4) 

Let take (1,4)(2,3) € K, and let use the relation tytatitgt, = (1, 4)(2, 3)tatetstits. 
=> tytgtytgtytgtytgteta = (1, 4)(2, 3). 

Since tytatytgt,tgtytgteta € K and ts € G 

We have (titatit3titgtitgtota)4 € KS 

=> (t4)—|(tytatytgtytgtytgteta) (ta) € KS 

=> tatytatytgtytgtytgtetata © KC 

=> tatytatitgtit3titst, © KS 

= tatytatitgtitgtitgte © Ke 

=> tatita(1, 3) (2, 4tite € KE 

= (1,3)(2, 4)totgtotite € KS 

= (1,3)(2,4)totgtetite € K° 

=> (1,4)(2,3)tit, ¢ KG 

=> (1,4)(2,3)tita € KG 

=> tytatytatytatitatytat, € KS 

=> (tytatytatytatytatytat,) Ore) e KC 

=> (tytatytat,) | (titatitatitatitatitaty) (titatitat) € KS 

=> tytatytatytytatytatytatytatytatitytaty tat, © KC 

>t, € KS 

Ske Sent 

=> K& Dd {ta, ts, te, ti} =< ta, tz, to,t1 >= G 

SG=K-, 

From the steps (1), (2), and (3) and by Iwasawa’s Lemma G is simple group. 
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7.3 Construction of S¢ 


We take the progenitor 2*° : $5, where 2*° is the free product of 5 copies of the 
cyclic groups of order 2, and Ss is the group of automorphisms of 2*° which permutes the 
five symmetric generators by conjugation and factor it by the relation (012) = totytato. 
The double coset enumeration partitions the image of the group G as a union double 
cosets NgN where g € 2*° : Ss. Thus, we can find the set of elements gj, go, ... of G such 
that G= NgiNUNg2N U..., and for each 1, we have g; = p;w;, where p; € N, and w;, is 


a word in the t;s. Hence, the double coset decomposition is given by 
G=Nuw,;NUNw2NU Nw gN U..., 
where wi = e (the identity). We perform a double coset enumeration of the group 


2*5 : Ss 


[(012) — tt@t2" t] over S5. We will show 


2#° Ge 


oe [(012) = ttt?" t] 


= S6 x 2. 
A symmetric presentation of the progenitor 2*° : S5 is given by: 


27°: Sx 
G<x,y,t>:=Group<x,y,t|x75,y°2, (x*-1*y) “4, (x*y*x*-2*y*x) “2,t°2, (t,y), 
(t,y*x* Qey*exey*x7-1) , (0, x°-Qey*x72) , (t, yex*y*x 7 Qey*x) >; 
G factored by [(012) = ttt” t). N = S5 = (x,y), where x ~ (0,1,2,3,4) and y ~ (1, 2) 
and t = ts = to. 
Using computer-based program - MAGMA : 
1. The order of the group, |G| is equal to 120. 


2. There are 4 double coset in this double coset enumeration of G over Ss. 
Relations 
We see that 

(012) = totytotp > (012)totz = tot, > Ntot2 = Ntotr. 


Moreover, if we conjugate the previous relation by all elements in S5. Therefore, the 
different cosets are: 


(1) ((012)tota = tot1)° => (012)tote = tol1 
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(120) ((012)tota = tot) 28 = (210)toto = tot 


=> 01202203 = 04,10 212 213 = 14, 20 & 21 & 23 & 24 , 30 & 31 & 32 & 34, and 
40 = 41 = 42 = 43. 


Double Coset Enumeration of G over S5;: Double Coset [¥|: 


We start with the double coset NeN, where e is word of length zero, denoted by [x]. We 


have 


NeN ={Nen:ne€ N}={Ne}={N} 


So, the double coset NeN consists of the single coset N. Thus, 3 = = = 

Note, since N is transitive on {0, 1, 2,3,4}, we take a representative coset N from [*] and 
a representative from {0,1,2,3,4} and determine the double coset to which Nt; belongs, 
where i € {0,1,2,3,4}. We consider i = 0, so Ntg is a representative coset, and hence 
we will have a new double coset NtgN which can denoted by [0]. There will be three 


possible t;s in [*] that will advance to the next double coset [0]. 
Word of Length One [0]: 


we consider the double coset NwN, where w is a word of length one. NtoN = {NtG|n € N}, 
or [0]. We need to find the point stabilizer of 0. So, NtoN = [0] = {Ntj|n € N} = 
{NtoN, NtiN, NtoN, Nt3N, Nt4N}. Since, the point stabilizer of 0 in the subgroup N 
is the permutations in N that fixes 0 and permute the rest of the elements in the set 
{1,2,3,4}. Note: N© = {n € N|(to)” = to} > ((1, 2), (2,3), (1, 4, 3, 2), (3, 4)). 

Since | N)| = 24 then the number of single cosets in [0] is nO =e ee) 

Now, the orbits of N©) on {0,1,2,3,4} are {0} and {1,2,3,4}. We choose a representa- 
tive from each orbit, {0} and {1,2,3,4}. If we choose to from the orbit {0} and choose 
t; from the orbit {1,2,3,4}, then we notice the following 
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e Nto- to = Nt2 = N € [«]. This will go back to [+]. This is denoted by number 1 in 
Cayley diagram (to the left of the circle containing 3). 


e Nto- ti = Ntoti € [01]. This is a new double coset, which will extend the Cayley 
graph from [0] to [01]. Since there are 4 elements in this orbit, then there will be 4 
tis that take [0] to [01]. 


NtoN = {N(to)"|n € N} = {Nto, Nt, Nto, Nts, Nt4}. 
Word of Length Two [01]: 


We are at a new double coset [01], NtotiN = {N(tot1)"|n € N}. Now, to determine 
all the single cosets of this double cosets, we need to determine the point stabilizer N°, 
this means finding the set of elements that fix 0 and 1 in N and permute the rest of the 
elements in the set {2,3,4}. Now, using our relation (0,1, 2)tote = tot. 

SNM 41,34), (1, 2,4)5 (1,3) (2,4), A; 8). 2334) 11, 3,2); 

(1,253)): (15452); (254), 2,4. 3); (1.25374). 4) 3, 24), (84); 

(1,4, 3), (1,4, 2, 3), (1, 2), (1,3), (1,4, 3, 2), (1,3, 4,2). Thus, |W) | = 24. 

So, the number of single cosets in [01] is ay = ee = 5. In order to find these 5 single 
cosets, we need to determine the transversals (right coset representatives) of N (Ol). The 
5 single distinct cosets of the double coset [01] are: {Ntoti, Ntite, Ntot3, Nt3te, Ntats}. 
Now, we need to find the orbits of N@") to advance to the next double coset. The orbits 
of ND on {0,1,2,3,4} are: {0}, and {1,2,3,4}. Considering a representative from each 
orbit of NO), we will choose the following representative from each orbit: to from {0} 


and t; from {1,2,3,4}. Multiply each representative with Ntofy, : 


e Ntoti - to = Ntotito € [010]. This is a new double coset, which extends our graph 
from [01] to [010]. Since there is 1 element in this orbit, there is one t; that take 
[01] to [010]. 


e Ntot,-t, € [0]. This will go back to [0]. Since there is 4 element in this orbit, there 
are 4 t/s that take [01] to [0]. 


Word of Length Three [010]: 


Again we need to find the point stabilizer of 0 , 1, and 0. This is denoted by N®!°. 
Therefore, we need to find the permutations in N that fixes 0, 1 and 0. The coset 
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stabilizer of the coset totitg, N@! > N°, Using the relation (012)tot2 = toti, we 
multiply both sides by to to get (0,1, 2)toteto = totito. 
=> N(10) > ((0,1,2,3,4), (1,2)) & Sg. Hence, |N©!)| = NW = 120, 

|| 


so [NOI =n 1. Therefore, there are 1 distinct coset representative. There is 


single distinct coset of the double coset [010] are: {Ntgtjtg}. The transversal of N(0!9) 
in N is: Ntotyto, and the orbit of N(29) in {0,1,2,3.4} is {0, 1, 2,3, 4}. 


Conclusion: 


The double coset enumeration gives that 

G= NUNtUNt, UNtgU Nt3 U NtgU Ntoty U Nt to U Ntotp U Ntgtp U Ntgtp U Ntotito. 
GN IN 

~ |N©] — |.N(1)] ~— |N(010)| 

= (1454541) x 120 


= (12 x 120) = 1440. A Cayley diagram of Sg x 2 over Ss is given below. 


I*1 [0] [01] [010] 


Figure 7.2: Cayley Diagram for Sg x 2 Over S55 
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To find the permutation representation of x, y, and to we label all the right 


cosets and conjugate them by x and y and multiply them by to as the following table, 


Table 7.1: Permutation Representation of x, y, and to 


Cosets x ~ (0,1,2,3,4) | y~ (1,2) | to 

1.N 1.N 1.N 2.Nto 
2.Nto 3.Nty 2.Nto 1.N 
3.Nty 4.Nto 4.Nto 8.Ntyto 
4.Nto 5.Nt3 3.Nty 9.Ntato 
5.Nt3 6.Nt4 5.Nt3 10.Ntgto 
6.Nt4 2.Nto 6.Nt4 11.Ntqto 
7.Ntoty 8.Ntyto 7.Ntoty 12.Ntotito 
8.Ntyto 9.Ntato 9.Ntoto 3.Nty 
9.Ntoto 10.Ntgto 8.Ntyto 4.Nto 
10.Nt3to 11.Ntato 10.Nt3to 5.Nt3 
11.Ntgto 7.Ntoty 11.Ntato 6.Nt4 
12.Ntotito | 12.Ntotito 12.Ntotito | 7.Ntoty 


(2) = 2,3;,4,5,6)(7; 8,9; 10, 11): 
yy) = (3, 4)(8, 9). 
p(t) = (1, 2)(3, 8)(4, 9) (5, 10) (6, 11)(7, 12). 


O79. Se 
[((012) = tt*t27 ¢] 
above and the actions of t, x , and y on the twelve cosets is well-defined. Thus, we have a 


Then, we note that G = 


=< to,x,y > acts on the twelve cosets 


homomorphism ¢: G > Sj. Then $(G) =< (x), y(y), p(t) >; That is a homomorphic 
image of 2*° : 55 if the following proved, 

(1) d(N) & Ss. 

We have ¢(N) =< (x), y(y) >=< (2,3, 4,5, 6)(7, 8,9, 10, 11), (3,4)(8,9) > Ss since 
55 = {x, y|z°, y”, (x *y)4, ...}. 

= |(2,3, 4,5, 6)(7, 8, 9, 10, 11) * (3, 4)(8, 9)| = |(2, 4, 5, 6)(7, 9, 10, 11)| = 4 which is the first 
case proved. 

(2) y(t) has 5 conjugates acts under conjugation by (NV). 


To find y(t)?) we will conjugate y(t) by «, x?, 23, x*, and 2° respectively. 


© v(t)® = ((1,2)(3,8)(4, 9)(5, 10)(6, 11), (7, 12))23456)(78,9,10.11) 
(1,3)(2, 7)(4, 9)(5, 10) (6, 11)(8, 12) = t. 


© y(t)” = ((1,2)(3,8)(4, 9)(5, 10) (6, 11), (7, 12))%43:5)(7.9,11,8,10) — 


(1, 4)(2,7)(3,8)(5, 10)(6, 11)(9, 12) = tp. 


e 
cai 3 
nw 
8 

I 
— 
A. 
i) 


1,2)(3 
(1,5)(2,7)(3, 8)(4, 9)(6, 11)(10, 12) = ts. 


e 
F eihie 
oh 
8 

I 
—— 
Pai 
iw) 
~~ 
F cient 
ie) 


1,2)(3 
(1,6)(2,7)(3, 8)(4, 9)(5, 10)(11, 12) = ta. 


be g(t)” = ((1, 2)(3, 8)(4, 9)(5, 10) (6, 11), (7, 12))° = 
((1, 2)(3, 8)(4, 9)(5, 10)(6, 11), (7,12) = to. 


So, y(t)e) = {to, ty, ta, ts, ta}. 
(3) @(N) acts as S5 on the 5 conjugates of the y(t) by conjugates. 


e The 5 tis conjugate by x = (0,1, 2,3,4) as the following, 


— it =t 
== 
— i =t3 
—-t#=-—t 
— ti =t 


=> v(x) = (to, t1, ta, tz, ta). 


e The 5 tis conjugate by y = (1,2) as the following, 


= te =: 
— tf =te. 
— 8 =. 
bs Sta 
=U) ts 


= ply) = (t,t). 


)(3, 8)(4, 9)(5, 10)(6, 11), (7, 12) 3647108229) — 


)(4, 9)(5, 10)(6, 11), (7, 12)):65-4,8)(7,11,10.9,8) — 
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(4) Now, to check if p(y*xa*y*xx—!) = —y(totitato) we work in each side separately 


then compare them. 


L.H.S. = yp(y*xx*y* x) 
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= (3, 4)(8, 


9) « (2,3, 4, 5, 6)(7, 8, 9, 10, 11) * (3, 4)(8, 9)» 
((2,3,4,5,6 
9 


) 
)(7,8,9, 10,11))~! 

= (3, 4)(8, 9) * (2,3, 4,5, 6)(7,8, 9, 10, 11) * (3, 4)(8, 9)» 

(2,6, 5,4, 3)(7, 11, 10, 9, 8) 

= (2;3;4)(7, 8:9), 

R.H.S. = ¢(totitato) 

= (1, 2)(3, 8)(4, 9)(5, 10)(6, 11)(7, 12) * (1, 3)(2, 7)(4, 9)(5, 10) (6, 11) (8, 12) 
*(1, 4) (2, 7)(3, 8)(5, 10)(6, 11)(9, 12) * (1, 2)(3, 8)(4, 9)(5, 10) (6, 11)(7, 12) 
= (2;3,4)(7,8,9) 

So, the L.H.S. = R.H.S. that imply @¢:G 
, so that 6(G) =< (2), p(y), p(t) >. 
We know G/kerd = ¢(G) => |G| = |kerd| -|¢(G)|. By using the Cayley diagram, 
|G| < 1440 > (1). 

By using MAGMA |¢(G)| = | < y(z), p(y), p(t) > | = 1440. 

= |G| = |ker@|1440. 

= |G| > 1440 > (2). 

from (1) and (2) we have |G| = 1440. 


Home. 


S12 


oa Ge 
(012) = totitato 
We showed if y((012)) = y(totiteto) then < v(x), p(y), y(to) > is homomorphic image of 
G. 
By (1), (2), (3), and (4) we have that < y(x), p(y), p(to) > is a homomorphic image of 
O52 Ge. 


C= 


> Se x Z(G) 


Suppose we have the G-set call it X and we have the subset B of X, then to 
show G is primitive we will show that G is transitive and has no nontrivial blocks of X 
under the action G. 
By using the Cayley diagram of G, we have X = {N, Nto, Nt1, Nto, Nt3, Nta, 
Ntoti, Ntito, Ntato, Ntsto, Ntato, Ntotito}, > |X| = 12. 
We know X is transitive G-set by using the diagram (since any group G represnted by a 
Cayley diagram is transitive). Next, we note that if B is a block of X under the action 
of G then |B| has to divide |X]. 
So possible orders of B are positive divisors of 12. Thus, |B| = 1, 2,3, 4,6, 12. 
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We will discard the orders 1 and 12 because those are blocks. Now, a nontrivial block must 
be of size 2, 3, 4, or 6. Let B be a nontrivial block and N € B. X has asystem of blocks of 
impermitivity of size 2. That imply the center element is (1, 12)(2,7)(3, 8)(4, 9)(5, 10) (6, 11), 
to prove the center; 
Suppose ntgt ito is the center’s element, where n € N, then factor by the center 
ntotito = 1—> n—! = totyto. 
Find the action of n on Ntop, Nt,, Ntg, Ntz and Nt4. 
(1) Neo" = N(totito)~Mo(totito) = Ntotitotototito = Ntotitotito 
= Ntotitotito = Ntotititoti = Nth. 
(2) NiO" = N(totito) "ti (totito) = Ntotitotitotito = Ntotitotititot: = Nto. 
(3) Nt" = N(totito)—1ta(totito) = Ntotitotototito = Ntotetotetotito 
= Ntotatote(012)totato = Ntitotitototeto = Ntitotiteto = Ntytotiteto 
= Nt,(012) = Ntp. 
(4) Nt"! = N(totito)~'t3(totito) = Ntotitotstotito 
= Ntot1(031)totitotito = Ntgtototitotito = Ntgztitotito = Ntz3titotito 
= Nt3t1(012)totaty = Ntgtototeto = Ntgtoto(210)tet, = Ntgtitotet: = Nts. 
(5) Ntip’! = N(totito)~'ta(totito) = Ntotitotatotito 
= Niot1(024)totztotito = Ntotitotetotito = Ntot1(012)totitotito 
= Niotatotitotito = Ntotitotitotito = Ntotitotitotito 
= Nto(140)titatitotito = Ntititatitotito = Ntatitotito = Nt4(140)titatito 
= Ntotitatito = Ntotitatito = Ntotita(140)tita = Ntitatotits 
= Ntyt4to(142)tit2 = Ntatototits = Ntgtatotits = Ntgt(012)to 
= Ntytotp = Nta. 
= totito = (0,1) 
nan? =0,)3@-)7=61) *S2=(01)SnH2e94¢2 ¢. 
So, the center call it Z(G) is generated by < x* y* x7 ltotyto >. 


OF» Se 
= Se X 2. 
((012) = totitato), (x * y * x—!totito) 


Thus, the new diagram of this group will decrease to be as the following; 


We do not need the old relation since we can replace it by the new relation. 


We will start with the relation (x * y « x~')totito = 1 to find the relation (012)tototity = 1; 


[*] 


Figure 7.3: Cayley Diagram for Sg Over S5 


(xx yxax')totito =1 
= (01)to = toti 
= (01)tot = totite 
=> (01)totato = totiteto 
= (01)tototy = toti toto 
= (01)(021)totito = totitato 
=> nae = totitato 
= (12) 


Ge 


Viera 


~N 


(01) = totito 


[0] 


~ S6 
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7.4 How To Write The Elements of The Group: 


We know each group define by elements and there are two ways to write the 


elements of G in Symmetric or Permutation forms since G as the following form; 


ge 


((012) = totitato) 


1. Symmetric To Permutation: 


Every element of G is of the form nw where n is a permutation of S,, on n letters 


and w is a word of length at most 3. 


Example 7.7. From the last group we work in G = 


9*5 + Ss 


. In this ex- 
((012) = totitato) 


ample n is the permutation of Ss on 5 letters and w is a word of length at most 3. 


We write the elements of G in the Symmetric form, 


e (0,1, 2,3, 4) (1 
to (0,1, 2,3, 4)to (1 
1 


ty (0,1,2,3,4)t1 ( 


totito (0, 1,2,3, 4)totito (Ls 2)totito 


(1, 2) (3, 0)totito 


Convert we take (0,1,2,3,4)toti from the Symmetric form and we want to find the 


Permutation form. 


= (0,1,2,3,4)toti = (1,7) (2, 12)(3, 4, 5, 6)(8, 9, 10, 11) 


(0, 1, 2,3, 4) 


As 
a 


(2,3,4,5,6)(7,8,9,10,11) (1,2)(3,8)(4,9) (5,10) (6,11) (7,12) 


(to) 
( 


to) 


2. Permutation To Symmetric: 


Let P be a permutation on m letters. In this way we will write it as nw form since 
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n is the permutation of $,, on n letters and w is a word of length at most 3. We 


write the elements of G as the following Permutation way. 


NP =1? =Nw 
=>NP=Nwu,PENPSPENw 


= P=nw for some n €N 


>n= Pw! 


Example 7.8. From the last group and the last example, we write the following 


Permutation in the Symmetric form, 
Convert we take P = (1, 7)(2, 12)(3, 4, 5, 6)(8, 9, 10, 11); 
NPS Sai 
=> n= Ptyto = (1,7)(2, 12)(3, 4, 5, 6)(8, 9, 10, 11): 
(1, 3)(2, 7)(4, 9)(5, 10)(6, 11)(8, 12) - (1 
=> n = (2,3, 4,5, 6)(7, 8, 9, 10, 11) 

We write n in it action on {Nto, Nti, Nto, Nts, Nta}, as the following; 


=> (Nto) 


ae 


— 


2,3,4 59,6 
2,3,4,5,6 
2,3,4,5,6 


2,3,4,5,6 


2,3,4,5,6 


7,8,9,10,11 
7,8,9,10,11 
7,8,9,10,11 
7,8,9,10,11 


7,8,9,10,11 


Obes) 


=P = (0, 1, 2,3, 4)toty 


— 9(2,3,4,5,6 
— 3(2,3,4,5,6 
— 4(2,3,4,5,6 
— 5(2,3,4,5,6 


— ¢(2,3,4,5,6 


, 2)(3, 8)(4, 9) (5, 10)(6, 11) (7, 12) 


(7,8,9,10,11) —_ 3 — Nt, 
(7,8,9,10,11) — 4 = Nto, 
(7,8,9,10,11) _ 5 — Nts, 
(7,8,9,10,11) — § = Nta, 


(7,8,9,10,11) — 9 = Nt. 
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Chapter 8 


Construction of M5 


8.1 Double Coset Enumeration of Mo. x 2 Over S¢ 


We take the progenitor 2*°° : Sg, where 2*°° is the free product of 30 copies 
of the cyclic groups of order 2, and S¢ is the group of automorphisms of 2*39 which 
permutes the thirty symmetric generators by conjugation and factor it by the two relations 
(x)tatoztigtistia = 1, and (x)*tyetotigtg = 1. 

We write N = Sg = (2, y). 

The double coset enumeration partitions the image of the group G as a union double 
cosets NgN where g € 2*?° : Sg. Thus, we can find the set of elements gj, g2,... of G such 
that G= NgqiNUNg2N U..., and for each 7, we have g; = p;w;, where p; € N, and w;, is 


a word in the t;s. Hence, the double coset decomposition is given by 
G=Nw,NUNw2NU Nu zN U..., 


where w, = e (the identity). We perform a double coset enumeration of the group 
pieliacg.. 
[(a-3)e9"], [(a-3)t9"]4 


over Sg. We will show 


9*30 . (S ) 5 
G= [(x-3) 49°], ce ~ Moo x 2. 


A symmetric presentation of the progenitor 2*°° : (5g) is given by: 
2*80 : (Se) = 
G<x,y,t>:=Group<x,y,t|x°8,y78, (x*y*-2*x) “2, (x*-1*y7-1)°4, (x*y*-1) 74, 


(y*-Lex7-Ley*x 7 Sky*x7-Ley7-1*x) , (y*x*y*x 7 Styexey72) ,t72, (t,x74), 
(t , x*y*x7-1L*y7-2*x) , (t, x*y*x*y*x*-Ley*-1)>; 
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G is factored by ((7~?) *t@))® = 13((a73) * ta)> = 1S 

(@8 oe ety tty te th = 1, 

and ((2~3) « t@"))4 = 13((a-3) * tg)! = 1 S((@3) 448 eee ee” 4 = 1 

which simplify to 

(x)tateztiztistia = 1, and (x)*tigtgtigto = 1. 

N & Se = (x,y), where 

a ~ (1,2,4,8)(3, 6, 11, 18, 26, 20, 29, 22)(5, 10, 17, 12, 19, 28, 30, 25) 

(7, 13, 21, 27, 15, 24, 23, 14) (9, 16) , 

and y ~ (1,3, 7, 14, 23, 29, 4, 9)(2, 5, 10, 6, 12, 20, 28, 30)(8, 15, 25, 21) 

(11, 16, 26, 19, 13, 22, 24, 17)(18, 27). 

Let t =t,. The order of N is 720. 

Using computer-based program - MAGMA extensively through this DCE: 
1. The order of the group, |G| is equal to 887040 . 

2. There are 10 double cosets in this double coset enumeration of 

Mo. x 2 over S6. 

Relations 

We see that 

(I) [(x~3)e"]5 = 1 = (x)tortoztigtistia = 1. 

Moreover, if we conjugate the previous relation by all elements in S¢, different relations 


we obtain 
be ((x)to7testiztistia = 1) => rlo7to3ti3ti5ti4 = 1. 


e ((x)tortostististia = 1)” > vtistiatertoat7 = 1. 


© ((x)tortostigtistia = 1)” > (x”)tigtogterteste; = 1. 
(II) [(2~3) "4 =1= (x)*tigtotietg =1. 
We obtain 


© ((x)tigtotigto = 1)° > (a)*tistotieto = 1. 


as ((x)‘tietotiety = 1) => (x)*totietotie = 1. 
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© ((x)*tigtotists = 1)” = ((y~!xy)*)tagtitesti = 1. 
Double Coset [x]: 


We start with the double coset NeN, where e is the word of length zero, denoted by [x]. 
We have 


NeN ={Nen:ne€ N}={Ne}={N} 


|N| 720 | 
|N| 720 — 
Note, since N is transitive on {1,2,...,30}, we take a representative coset N from [x] and 


So, the double coset NeN consists of the single coset N. Thus, 


a representative from {1,2,...,30} and determine the double coset to which Nt; belongs, 
where i € {1,2,...,30}. We consider 7 = 1, so Nt; is the representative coset, and hence 
we will have a new double coset Nt; which can denoted by [1]. There will be 30 possi- 


bles tis in [*] that will advance to the next double cosets [1]. 


Word of Length One [1]: 


We consider the double coset NwN, where w is a word of length one. 

NtiN = {Nt} |n € N} =[1]. We need to find the point stabilizer of 1. So, NtiN = 
[1] = {Nt?|n € N} = {NtN, NtoN,..., Nt39N}. Since, the point stabilizer of 1 in the 
subgroup N is the permutations in N that fixes 1 and permutes the rest of the elements 


in the set {1,2,...,30}. The coset stabilizer of the coset Nt, is N@ = {n € N|t,” = ti} 


=< (3, 26)(5, 19)(6, 20)(7, 15)(10, 28)(11, 29)(12, 25) (13, 24) 
(143. 2717, .30) (18, 22). 15°23) ; 
(2, 12)(4, 15)(5, 16)(6, 22)(8, 28)(9, 26) (11, 24)(13, 14) 
(Cis 18) C20, -30)(O1.,. 2377 29):, 
(2, 27)(4, 5)(6, 21)(8, 24)(9, 26)(10, 25) (11, 28)(12, 29) 
(15, 16)(17, 30)(18, 20)(22, 23) > 


Py ee = 30. 


ING) — 24 
Now, the orbits of N on {1,2,...,30} are {1}, {2, 12, 27, 25, 29, 14, 10, 11, 13, 


28, 24,8}, {3, 26,9}, {4,15,5, 7, 16,9} and {6, 20, 22, 21, 30, 18, 23,17}. We choose a rep- 


Since |N“)| = 24, the number of single cosets in [1] is 


resentative from each orbit, determine the double costs that contain Nt,t;, 7 = 1,2,3,4 


and 6. 
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e Nt, -t; = Nt? = N € [x]. This will go back to [x]. Since there is one element in 
this orbit, there is one t; that takes [1] to [x]. 


e Nt, -t2 = Ntytg € [12]. This is a new double coset, which will extend the Cayley 
graph from [1] to [12]. Since there are 12 elements in this orbit, there are 12 tis 


that take [1] to [12]. 


e Nt, - t3 = Nt,t3 € [13]. This is a new double coset, which extends our graph from 
[1] to [13]. Since there are 3 elements in this orbit, there are 3 ts that take [1] to 
[13]. 


e Nt, -t4 = Ntyt4 € [14]. This is a new double coset, which extends our graph from 
[1] to [14]. Since there are 6 elements in this orbit, there are 6 ts that take [1] to 
[14]. 


e Nt, - tg = Ntite. This give the relation tjt¢ = tgti6. This double coset will go to 
[1,4]. Since there are 8 elements in this orbit, there are 8 t/s that take [1] to [1, 4]. 


Word of Length Two [1,2], [13], and [14] 


(i) We are at a new double coset [12], NtjteN = {N(tit2)"|n € N}. Now, to determine 
all the single cosets of this double cosets, we need to determine the point stabilizer of 
N!”, this means finding the set of elements that fix 1 and 2 in N and permute the rest 
elements of the elements in the set {1,2,...,30}. The coset stabilizer of the coset Ntytg 
is N@?) — {n € N|(tytz)” = tite} 
= < (3, 26)(5, 19)(6, 20)(7, 15)(10, 28)(11, 29)(12, 25) 
(13, 24)(14, 27)(17, 30)(18, 22)(21, 23)>. 


Since |N“?)| = 2, the number of single cosets in [12] is wan = 20 = 360. 

Now, the orbits of N“?) on {1,2,...,30} are {1}, {2}, {3,26}, {4}, {5,19}, {6, 20},{7, 15}, 
{8}, {9}, {10,28}, {11,29}, {12,25}, {13,24}, {14,27}, {16}, {17,30}, {18,22}, and 
{21,23}. We choose a representative from each orbit, find the double costs to which 
Ntytet; belongs to each 


i € {1,2,3,4,5,6, 7,8, 9, 10, 11, 12, 13, 14, 16, 17, 18, 21}. 


e Ntit2-t, = Ntytet;. This gives the relation tytat) = (yx~y)titeta. This double 
coset will go to [1,2,4]. Since there is one element in this orbit, there is one ¢; that 


takes [1,2] to [1, 2, 4]. 
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Ntit2 - tz = Nt,t? € [1]. This will go back to [1]. Since there is one element in this 
orbit, there is one t; that takes [12] to [1]. 


Nttg-t3 = Ntytotz € [123]. This is a new double coset, which extends our graph 
from [12] to [123]. Since there are 2 elements in this orbit, there are 2 tis that take 
[12] to [123]. 


Ntitg-t4 = Ntytot, € [124]. This is a new double coset, which extends our graph 
from [12] to [124]. Since there is one element in this orbit, there is one t; that takes 


[12] to [124]. 


Ntit2-ts = Ntitgts. This gives the relation titets = (wy! 2y~!)taoto. This 
double coset will collapse. Since there are 2 elements in this orbit, there are 2 tis 


that take [1,2] to [1, 2]. 


Ntitg-tg = Ntytotg. This gives the relation titotg = (ya ty?) tatogtag. This 
double coset will go to [1, 2,3]. Since there are 2 elements in this orbit, there are 2 


tis that take [1, 2] to [1, 2, 3]. 


Ntyto-t7 = Ntytgt7. This gives the relation ttat7 = (yryx~!y~2x)tgtg. This double 
coset will collapse. Since there are 2 elements in this orbit, there are 2 ts that take 


[1, 2] to [1,2]. 


Ntitg- tg = Ntytotg € [128]. This is a new double coset, which extends our graph 
from [12] to [128]. Since there is one element in this orbit, there is one t; that takes 


[12] to [128]. 


Ntit2-tg9 = Ntytetg. This gives the relation tytatg = tytegt3. This double coset will 
go to [1, 2,3]. Since there is one element in this orbit, there is one t; that takes [1, 2] 


to [1, 2, 3]. 


Ntito- tio = Nt toti9o. This gives the relation tytoti9 = tytegtg. This double coset 
will go to [1, 2,3]. Since there are 2 elements in this orbit, there are 2 tis that take 


[1,2] to [1,2, 3]. 


Ntyto- ty = Ntitoty,. This gives the relation tjtgt1, = tyt13t14. This double coset 
will go to [1, 2,8]. Since there are 2 elements in this orbit, there are 2 tis that take 


[1,2] to [1, 2,8]. 
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e Ntyto-tyg = Ntitotig. This gives the relation tytotyg = tyty4tg. This double coset 
will send to [1,2,3]. Since there are 2 elements in this orbit, there are 2 t/s that 


take [1, 2] to [1, 2, 3]. 


e Ntyto-t13 = Ntitot13. This gives the relation Nt tgt13 = tite7t3. This double coset 
will go to [1, 2,3]. Since there are 2 elements in this orbit, there are 2 tis that take 


[1,2] to [1, 2, 3]. 


e Ntyt2-t14 = Ntitoti4. This gives the relation tytoty4 = tyt1gt9g. This double coset 
will go to [1, 2,3]. Since there are 2 elements in this orbit, there are 2 tis that take 


[1,2] to [1,2, 3]. 


e Ntyt2-t1g = Ntytotyg. This gives the relation tytot1g = (yx 7y)tytegt26. This double 
coset will go to [1, 2,3]. Since there is one element in this orbit, there is one ¢; that 


takes [1,2] to [1, 2, 3]. 


e Ntyto-ti7 = Ntiteti7 € [1,2,17]. This is a new double coset, which extends our 
graph from [12] to [1,2,17]. Since there are two elements in this orbit, there are 2 


t; that take [12] to [1, 2,17]. 


e Ntytz-t1g = Ntytot1g. This gives the relation tytot1g = (yry~2)*tatet;. This double 
coset will go to [1,2,4]. Since there are two elements in this orbit, there are 2 ts 


that take [1,2] to [1, 2, 4]. 


e Ntit2- to, = Ntytgt2:. This gives the relation t,tet2: = (yx~y)titeti7. This double 
coset will go to [1,2,17]. Since there are 2 elements in this orbit, there are 2 tis 


that take [1,2] to [1, 2,17]. 


(ii) We are at a new double coset [1,3], NtitgN = {N(tit3)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N°, this means finding the set of elements that fix 
1 and 3 in N and permute the rest elements of the set {1,2,..., 30}. 

The coset stabilizer of the coset Nt,t3 is NO) = {n € N|(tit3)” = tit3} 
=< (2, 12)(4, 15)(5, 16)(6, 22)(8, 28)(9, 26)(11, 24)(13, 14) 
C103, T8)(20,y, 80) (21 28) (275: :29)% 


(2, 27) (4, 5)(6, 21)(8, 24)(9, 26)(10, 25)(11, 28)(12, 29) 
(15, 16) (17, 30)(18, 20) (22, 23), 
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(2, 11) (4, 16)(6, 30)(7, 19)(8, 29)(10, 13)(12, 28)(14, 25) 
(175. 22018, 28) 0, 31) 4,27) 

Chi SQ; 205,242 28 390% 17 OBS 6) 95. B18. 16410, 
15, 14)(7;. 9, 19,. 26), 30, 27 ,..92,. 11, 18, 12, 91)>. 


IN| _ 720 _ 
[NG3)] ~~ 16 ~~ 45. 


Now, the orbits of N(@%) on {1,2,...,30} are {1,3}, {2, 12, 27, 11, 20, 21, 22, 17, 
18, 6, 23, 30, 29, 28, 24,8}, {4,15, 5, 16, 25,14, 13,10}, and {7,19,9, 26}. We choose a rep- 


Since |N“3)| = 16, the number of single cosets in [13] is 


resentative from each orbit, find the double costs to which Nt ,t3t; belongs to each 
§E490,9 AT) 


e Ntits- ts; = Ntt? € [1]. This will go back to [1]. Since there are two elements in 
this orbit, there are 2 ts that take [1,3] to [1]. 


e Ntyt3- tg = Ntit3tg. This gives the relation Nt itgtg = tytgt3. This double coset 
will go to [1,2,3]. Since there are 16 elements in this orbit, then there will be 16 
tis that take [1,3] to [1, 2, 3]. 


e Ntit3-t4 = Ntt3ta. This gives the relation tyt3t, = (y?x7yx)t3tst7. This double 
coset will go to [1, 2,3]. Since there are 8 elements in this orbit, there are 8 tis that 


take [1,3] to [1, 2,3]. 


e Ntt3-t7 = Ntytst7. This gives the relation t,t3t7 = (xyxyx ly~*)tygtoetg. This 
double coset will go to [1,2,8]. Since there are 4 elements in this orbit, there are 4 


tis that take [1,3] to [1, 2, 8]. 


(iii) We are at a new double coset [1,4], Ntjt4N = {N(tit4)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N', this means finding the set of elements that fix 1 and 4 in N and permute 
the rest of the elements in the set {1,2,...,30}. 

The coset stabilizer of the coset Nt,t4 is N@4) = {n € N|(tyt4)” = tyta} 


= < (2,.8)(3, 26) (5. 7) (6; -22) (10, 27) 42, 13) (14, “287 (15, 19) 
(17; 28) (185 620) (21,. 30) (24. 25), 
(2, 8)(5, 15)(6, 18)(7, 19) (10, 14) (11, 29) (12, 24)(13, 25) 
(17, 21)(20, 22)(23, 30) (27, 28), 
Cy - 4) (23-8) GS, 11-26, 29) (5... 175. -29,/ 30) 6, 18, 20;. 22) 
C7, 2is. 15, 23).010, 125.28; 25) Cis) 27, 24, "14; 
(14) s- 8.08 > 29s 06,11) (5, BOs. 19,> AIG: 22,205.18) 
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Che 23° 15) 21). G0 % 95. 285 (412) 185 145 94. 27), 

Cy 4503, 14):05 3. 99) 46-90) (7. 30) C10). - 13): G2. 14155. 17) 
(19, 21)(24, 28)(25, 27) (26, 29), 

Ch, 4), 29).5, 21) (7... 17) G10, -24):C414,,, 26):12,,. 97) (18, 28) 
(14, 25)(15, 30)(18, 22)(19, 23), 

(1, 18) (3, 27) (4, 22)(5, 17)(7, 21)(8, 9)(10, 24)(11, 14) 
(12, 29)(15, 19) (23, 30)(25, 26)>. 


[IN| __ 720 __ 
[NG4)| ~— 24 ~~ 30 


Now, the orbits of N“4) on {1,2,...,30} are {1,4, 18, 20,6, 22}, {2,8, 9}, 
{3, 26, 11, 29, 27, 25, 10, 24, 13, 28, 14, 12}, {5, 7, 15, 17, 30, 23, 21, 19}, and {16}. We choose 


Since |N““)| = 24, the number of single cosets in [14] is 


a representative from each orbit, find the double costs to which Nt,t4t; belongs to each 


i € {2,3,4,5, 16}. 


e Ntit4-t4 = Ntit? € [1]. This will go back to [1]. Since there are 6 elements in this 
orbit, there are 6 tis that take [14] to [1]. 


e Ntyta- tg = Ntytate. This gives the relation tyt4to = tigtagti3. This double coset 
will go to [1, 2,8]. Since there are 3 elements in this orbit, there are 3 tis that take 


[1, 4] to [1,2, 8]. 


e Ntyt4-t3 = Ntitatz. This gives the relation t)t4t3 = tygtegtg. This double coset will 
go to [1,2,3]. Since there are 12 elements in this orbit, there are 12 ts that take 
[154] -to-(1,2.3): 


e Ntyt4-t5 = Ntytats. This gives the relation tyt4t; = t7. This double coset will go 
back to [1]. Since there are 8 elements in this orbit, there are 8 t/.s that take [1, 4] 
to [1]. 


e Ntit4- tig = Ntitatig € [1,4,16]. This is a new double coset, which extends our 
graph from [14] to [1,4,16]. Since there is one element in this orbit, there ise one 


t; that takes [14] to [1, 4, 16]. 
Word of Length Three [123], [124], [128], [1,2,17] and [1, 4, 16]: 


(i) We are at a new double coset [1,2,3], Ntitet3N = {N(titet3)"|n € N}. Now, to 
determine all the single cosets of this double cosets, we need to determine the point 


stabilizer N!*%, this means finding the set of elements that fix 1, 2, and 3 in N and 
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permute the rest of the elements in the set {1,2,...,30}. The coset stabilizer of the coset 
Ntytots is N (123) = {n E N|(tytat3)” = ty tats} 


= < (2, 8)(8, 26)(5, 7)(6, 22)(10, 27)(12, 13)(14, 28)(15, 19) 
(17, 23)(18, 20)(21, 30)(24, 25) >. 


2 
Now, the orbits of N13 on {1,2,...,30} are {1}, {2,8}, {3,26}, {4}, {5,7}, {6,22} {9}, 
{10,27}, {11}, {12,13}, {14,28}, {15,19}, {16}, {17,23}, {18,20}, {21,30}, {24, 25}, 


and {29}. We choose a representative from each orbit, find the double costs to which 


Since |N(28)| = 2, the number of single cosets in [123] is iNGay = 2 = 360; 


Ntytet3t; belongs to each 
i € {1,2,3,4,5,6,9, 10, 11, 12, 14, 15, 16, 17, 18, 21, 24, 29}. 


e Ntitot3 -t; = Ntytet;. This gives the relation Ntytot3t, = (xy?xy?a)tztato7. This 
double coset will go to [1,2,17]. Since there is one element in this orbit, there is 


one t; that takes [1, 2,3] to [1, 2,17]. 


e Ntytot3 : to = Ntitot3to = Ntytgtote = Ntyt3t3 E [eB This double coset will go 
back to [1,3]. Since there are 2 elements in this orbit, there are 2 tis that take 


[1, 2,3] to [1,3]. 


e Ntitgts -t3 = Ntt2 € [12]. This double coset will go back to [1,2]. Since there are 
2 elements in this orbit, there are 2 tis that take [1, 2,3] to [1,2]. 


e Ntytot3-t4 = Nt, totst4. This gives the relation 
tytot3ta = (yxy ~!)tyt11. This double coset will go back to [1,2]. Since there is one 
element in this orbit, there is one t; that takes [1,2,3] to [1, 2]. 


e Ntytot3-t5 = Nt, totsts. This gives the relation 
Ntytot3ts = (x~*y~!a~7)tzoti3t1o. This double coset will collapse. Since there are 
2 elements in this orbit, there are 2 ts that take [1, 2,3] to [1, 2, 3]. 


e Ntytot3-tg = Nt, totstg. This gives the relation 
tytotgts = (y*xyx~')tgta1te9. This double coset will go to [1, 2,4]. Since there are 2 
elements in this orbit, there are 2 ts that take [1, 2,3] to [1, 2, 4]. 


e Ntytot3- to = Ntytat3t9. This gives the relation t)tgt3t9 = tyteg. This double coset 
will go back to [1,2]. Since there is one element in this orbit, there is one t; that 


takes [1, 2,3] to [1, 2]. 
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Ntitot3 - tio = Ntitat3ti9. This gives the relation t,totstig = tytj2. This double 
coset will go back to [1,2]. Since there are 2 elements in this orbit, there are 2 ts 


that take [1, 2,3] to [1, 2]. 


Ntytot3 - ti = Ntitet3ti,;. This gives the relation tytot3ty,; = tatjg. This double 
coset will go back to [1,4]. Since there is one element in this orbit, there is one t; 


that takes [1, 2,3] to [1, 4]. 


Ntytotz - tig = Ntitet3ti2. This gives the relation t)tots3tj2 = tyt19. This double 
coset will go back to [1,2]. Since there are 2 elements in this orbit, there are 2 tis 


that take [1, 2,3] to [1, 2]. 


Ntytot3 : ty4 = Ntytotstr4. This gives the relation tytot3ti4 = ty tog. This double 
coset will go back to [1,2]. Since there are 2 elements in this orbit, there are 2 ts 


that take [1, 2,3] to [1, 2]. 


Ntytot3 7 t15 = Ntytotstys. This gives the relation 


1 


tytot3tt5 = (xyx ty a tyx)toitiotr3. This double coset will collapse. Since there 


are 2 elements in this orbit, there are 2 ts that take [1, 2,3] to [1, 2,3]. 


Ntytot3 < t16 = Ntytotstig. This gives the relation 
tytot3tie = (x !yx*y)togtatio. This double coset will go to [1,2,17]. Since there is 
one element in this orbit, there is one t; that takes [1, 2,3] to [1, 2,17]. 


Ntytot3 -ti7 = Ntitat3t;7. This gives the relation 
tytotg3ti7 = (a~*y~!x?)to1tgte9. This double coset will go to [1,2,17]. Since there 
are two elements in this orbit, there are 2 tis that take [1, 2,3] to [1, 2,17]. 


Ntytot3 ‘tg = Ntytotstig. This gives the relation 
tytotgtig = (a 2y~tx)to1tgt39. This double coset will go to [1, 2,4]. Since there are 


two elements in this orbit, there are 2 tis that take [1, 2,3] to [1, 2, 4]. 


Ntytot3 ‘toy = Ntytotste1. This gives the relation 
tytot3te, = (wyx—!)*tygt11. This double coset will go back to [1,2]. Since there are 
two elements in this orbit, there are 2 tis that take [1, 2,3] to [1, 2]. 
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e Ntytot3 - tag = Ntytatg3to4. This gives the relation 
tytat3te4 = tyte5. This double coset will go back to [1,2]. Since there are two 
elements in this orbit, there are 2 ts that take [1, 2,3] to [1, 2]. 


e Ntytot3 - tag = Ntytatgte9. This gives the relation 
tytgt3t29 = tytg. This double coset will go back to [1,3]. Since there is one element 


in this orbit, there is one t; that takes [1, 2,3] to [1,3]. 


(ii) We are at a new double coset [1,2,4], NtitetaN = {N(titets)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N14, this means finding the set of elements that fix 1, 2, and 4 in N and 
permute the rest of the elements in the set {1,2,...,30}. The coset stabilizer of the coset 
Ntytota is NO) = {n © N|(titota)” = tyteta} 


=< (1, 2)(3, 6, 26, 20)(4, 8)(5, 24, 19, 13)(7, 28, 15, 10) 
(9, 16)(11, 22, 29, 18)(12, 23, 25, 21)(14, 17, 27, 30)>. 


Since |N(!?4)| = 4 then the number of single cosets in [124] is NOY = Ee = 180. 

Now, the orbits of N!*4 on {1, 2, ..., 30} are {1, 2}, {4, 8}, {9, 16}, {3, 26, 6, 20}, {5, 15, 24, 13}, 
{7, 15, 28, 10},{11, 29, 22, 18}, {12, 25, 23, 21}, 

and {14, 27, 17,30}. We choose a representative from each orbit, find the double costs to 


which Nt,tgt4t; belongs to each 7 € {1,3, 4,5, 7,9, 11, 12, 14}. 


e Ntytot4-t, = Ntytotat,. This gives the relation tytgtat, = (yx *y)tit2. This double 
coset will go back to [1,2]. Since there are two elements in this orbit, there are 2 


tis that take [1, 2,4] to [1, 2]. 


e Ntitot4-t3 = Ntitotyt3. This gives the relation t,tgt4t3 = (y~!x~?)tostotis. This 
double coset will go to [1,2,17]. Since there are 4 elements in this orbit, there are 


4 ts that take [1, 2,4] to [1, 2,17]. 


e Ntitot,-t4 = Ntit2t? = Ntyt2 € [1,2]. This double coset will go back to [1, 2]. 
Since there are 2 elements in this orbit, there are 2 tis that take [1,2, 4] to [1, 2]. 


e Ntytot4:- ts = Ntitotats. This gives the relation 


2 


tytotats = (yxy~*ryx~')toot13t19. This double coset will go to [1, 2,3]. Since there 


are 4 elements in this orbit, there are 4 t/s that take [1, 2,4] to [1, 2,3]. 
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e tytot4-t7 = Nttet4t7. This gives the relation 
tytotatr = (yryx ty~')teotigtio. This double coset will go to [1,2,3]. Since there 
are 4 elements in this orbit, there are 4 ts that take [1, 2,4] to [1, 2,3]. 


e Ntytot4- to = Nt, totatg. This gives the relation 
tytotatg = (x ty~!x~*y~!)toptgts. This double coset will go to [1, 2,17]. Since there 
are 2 elements in this orbit, there are 2 t/s that take [1, 2,4] to [1,2,17]. 


e Ntytota- ty, = Ntytet4ti,. This gives the relation 
tytotaty, = (x?y~!x2y-!x2-?)tgt;. This double coset will go back to [1,2]. Since 
there are 4 elements in this orbit, there are 4 t's that take [1,2, 4] to [1, 2]. 


e Ntytota- ty = Ntitetatig. This gives the relation 
tytotatyg = (x~*y7")tigt3ta. This double coset will collapse. Since there are 4 


elements in this orbit, there are 4 tis that take [1, 2,4] to [1, 2, 4]. 


e Ntytota-ty4 = Ntytetati4. This gives the relation 
tytotatia = (yx?) tigtogta. This double coset will collapse. Since there are 4 elements 


in this orbit, there are 4 t/s that take [1, 2,4] to [1, 2, 4]. 


(iii) We are at a new double coset [1,2,8], NtitetgN = {N(titets)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N!?8, this means finding the set of elements that fix 1, 2, and 8 in N and 
permute the rest of the elements in the set {1,2,...,30}. The coset stabilizer of the coset 
Ntytotg is N@?8) = {n © N|(titotg)” = tytotg} 


= < (3, 26)(5, 19)(6, 20)(7, 15)(10, 28)(11, 29)(12, 25)(13, 24) 
(14,27) (17, 80) (18, 22)(21.5 93) 
C1. 9I024 1S) 095 7s Be by ad 19) -16 26s 046... 2% 4,175 To 
1855982094. ' 95) C1090. 04. (23 a 99 AO BU): 


Since |N(!?8)| = 16, the number of single cosets in [128] is NOR =o 2) 45: 


Now, the orbits of N@8) on {1, 2, ...,30} are {1,9}, {2,5,7,8, 11, 15,19, 29}, {3, 4, 16, 26}, 
and {6, 20, 27, 24, 23, 17,14, 13, 25, 10, 21, 30, 28,12, 18,22}. We choose a representative 
from each orbit, find the double costs to which Nt,tgtgt; belongs to each i € {1,3,6, 8}. 


e Ntitotg - t; = Ntytotgt;. This gives the relation tytgtgt; = (xyx~7yx~')totg. This 
double coset will go back to [1,4]. Since there are two elements in this orbit, there 


are 2 tis that take [1, 2,8] to [1,4]. 
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e Ntytotg-t3 = Ntytatgt3. This gives the relation t)tatgts; = tytog. This double coset 
will go back to [1,3]. Since there are 4 elements in this orbit, there are 4 t/s that 


take [1, 2,8] to [1,3]. 


e Ntitotg- tg = Ntitot2 = Ntyt € [1,2]. This double coset will go back to [1, 2]. 
Since there are 8 elements in this orbit, there are 8 ts that take [1,2,8] to [1, 2]. 


e Ntitotg - tg = Ntytotgts. This gives the relation tytotats = (zyx ?yx~)tgte2. This 
double coset will go back to [1,2]. Since there are 16 elements in this orbit, there 


are 16 ts that take [1, 2,8] to [1, 2]. 


(iv) We are at a new double coset [1, 2,17], NtitetizN = {N(titatiz)"|n € N}. 
Now, to determine all the single cosets of this double cosets, we need to determine the 
point stabilizer N!*!", this means finding the set of elements that fix 1, 2, and 17 in N 
and permute the rest of the elements in the set {1,2,...,30}. The coset stabilizer of the 
coset Ntytoti7 is NO?!) = {n © N|(tytot17)” = titetr7} 


=< (1, 28, 4, 13)(2, 16)(8, 5, 29, 21)(6, 9)(7, 26, 17, 11) 
(8, 20)(10, 22, 24, 18)(12, 23, 27, 19)(14, 15, 25, 30)>. 


Since |N(?!7)| — 4 then the number of single cosets in [1, 2, 17] is Fcc = 40 = 180. 
Now, the orbits of N@?!7 on {1,2,...,30} are {1,28, 4,13}, {2,16}, {3,5, 29,21}, {6,9}, 
{7,11, 26,17}, {8, 20},{10, 24, 22,18}, {12, 27, 23, 19}, 

and {14, 25, 15,30}. We choose a representative from each orbit, find the double costs to 


which Nt,tgti7t; belongs to each 7 € {1, 2,3,6,8, 10,12, 14,17}. 


e Ntitoti7 -t, = Ntytoti7t1. This gives the relation t,toty7t; = (x y~!x)totaotg. This 
double coset will go to [1, 2,4]. Since there are 4 elements in this orbit, there are 4 


tis that take [1, 2,17] to [1, 2, 4]. 


e Ntytoti7- te = Ntyteti7te. This gives the relation t)toti7t2 = (xy tx*ty)totets. This 
double coset will go to [1, 2,4]. Since there are 2 elements in this orbit, there are 2 


tis that take [1, 2,17] to [1, 2, 4]. 


e Ntytoty7 -t3 = Ntytoty7t3. This gives the relation tytoty7t3 = (xyx*)togtig. This 
double coset will go back to [1, 2]. Since there are 4 elements in this orbit, there are 


4 tis that take [1, 2,17] to [1, 2]. 
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e Ntytoti7 - tg = Ntiteti7ts. This gives the relation 
titoti7zts = (xy~!x~2y~!)tgtioti3. This double coset will send to [1,2,3]. Since 


there are 2 elements in this orbit, there are 2 t/s that take [1,2,17] to [1, 2,3]. 


e tytoti7:-ti7 = Nititot?, = Ntyt2 € [1,2]. This double coset will go back to [1,2]. 
Since there are 4 elements in this orbit, there are 4 tis that take [1,2,17] to [1,2]. 


e Ntitoti7 -tg = Ntyteti7tg. This gives the relation titeti7ts = (y?xy)tote2t. This 
double coset will send to [1, 2,3]. Since there are 2 elements in this orbit, there are 


2 tis that take [1, 2,17] to [1, 2,3]. 


e Ntyteti7 - tio = Ntitetiztio. This gives the relation 
tytoti7tio = (wyx tyx)tgtyt22. This double coset will send to [1,2,3]. Since there 
are 4 elements in this orbit, there are 4 ts that take [1,2,17] to [1, 2,3]. 


e Ntytot17 7 t12 = Ntytoti7tio. This gives the relation 
tytotiztig = (y?x~!y~'x)tztot4. This double coset will collapse. Since there are 4 


elements in this orbit, there are 4 tis that take [1, 2,17] to [1,2, 17]. 


e Ntytoti7 - tia = Ntytoti7t14. This gives the relation 
tytoti7tia = (y’a ly 'a—!)ty7tat. This double coset will collapse. Since there are 


4 elements in this orbit, there are 4 ts that take [1, 2,17] to [1,2, 17]. 


(v) We are at a new double coset [1,4,16], NtitatigN = {N(titatig)"|n € N}. Now, 
to determine all the single cosets of this double cosets, we need to determine the point 
stabilizer N‘4!6, this means finding the set of elements that fix 1, 4, and 16 in N and 
permute the rest of the elements in the set {1,2,...,30}. The coset stabilizer of the coset 
Ntytatig is N49) = {n € N|(titatig)” = titatie} 
=< (1, 2, 4, 8)(3, 6, 11, 18, 26, 20, 29, 22)(5, 10, 17, 12, 
19, 28, 30, 25)(7, 13, 21, 27, 15, 24, 23, 14)(9, 16), 


(1, 3, 7, 14, 23, 29, 4, 9)(2, 5, 10, 6, 12, 20, 28, 30) 
(8, 15, 25, 21)(11, 16, 26, 19, 13, 22, 24, 17)(18, 27)>. 


Since |N(416)| — 720 then the number of single cosets in [1, 4, 16] is Trice = a a 


Now, the orbits of N@4!§) on {1,2,...,30} is {1,2,...,30}. We choose a representative 


from the orbit, and determine the double costs to which Ntjt4tigt1g belongs. 
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e Nititatig - tig = Ntitat?g = Ntt4 € [1,4]. This double coset will go back to [1, 4]. 
Since there are 30 elements in this orbit, there are 30 t/s that take [1, 2, 16] to [1, 4]. 


Conclusion: 


The double coset enumeration gives that 
IG| < (IN| + |NtiN| + |NtitoN| + |Ntit3N| + |NtitaN| + |Ntitot3N| + |NtitetsN| + 
|NtytotgN| + |Ntitoti7N| + |NtitatieN|) x |N| 
= (1+ 30 + 360 + 45 + 30 + 360 + 180 + 45 + 180+ 1) x 720 
= (1232 x 720) = 887040. A Cayley diagram of G over S¢ is given below. 
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[14 16] 


Figure 8.1: Cayley Diagram for Mg2 x 2 Over S¢ 
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8.2 Factor Mo x 2 By It’s Center 


By using Magma we have the center of G is 


erxteaxmitxyxtey teal «t=1> tatyet; = 1. 
980. Ge 
=> Z = 
((x)tatostiztistia), ((x)4tietotist), (tatiets) 


Moo. 


Using computer-based program - MAGMA extensively through this DCE: 

1. The order of the group, |G| is equal to 443520 . 

2. There are 5 double cosets in this double coset enumeration of M52 over S¢. 
Relations 

We see that new relation 

(TEL) (atiety = 1): 

Moreover, if we conjugate the previous relation by all elements in S¢, therefore, the 


different cosets we obtain 
e (tatotg = 1) 


e (tota6ts = 1}. 


e (ta0tz0ti9 = 1). 


Double Coset Enumeration of M22 over S¢: 


Double Coset [x]: 


We start with the double coset NeN, where e is the word of length zero, denoted by [x]. 
We have 


NeN ={Nen:ne€ N}={Ne}={N} 


IN| 720 | 
|N| 720 — 
Note, since N is transitive on {1,2,...,30}, we take a representative coset N from [x] and 


So, the double coset NeN consists of the single coset N. Thus, 


a representative from {1,2,...,30} and determine the double coset to which Nt; belongs, 


where i € {1,2,...,30}. We consider 7 = 1, so Nt; is the representative coset, and hence 
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we will have a new double coset Nt;.N which can denoted by [1]. There will be 30 possi- 


bles t;s that take N to the next double cosets [1]. 


Word of Length One [1] 


We consider the double coset NwN, where w is a word of length one. 

NtiN ={Nti|n € N} = [1]. So, NtiN = [1] 

= {Nti|n € N} = {Nt N, NtoN,...,Ntz0N}. The coset stabilizer of the coset Nt, is 
N® = {n € Nt” =t1} 


=< 


Since |N“)| = 24, the number of single cosets in [1] is 


Now, 


(3, 26)(5, 19)(6, 20)(7, 15)(10, 28)(11, 29)(12, 25)(13, 24) 
(145. 27) (17,30). (18,22): Or, 23), 

(2, 12)(4, 15)(5, 16)(6, 22)(8, 28)(9, 26)(11, 24)(13, 14) 
(17, 18)(20, 30)(21, 23)(27, 29), 

(2, 27)(4, 5)(6, 21)(8, 24)(9, 26)(10, 25) (11, 28)(12, 29) 

(15, 16)(17, 30)(18, 20)(22, 23) > 


IN| _ 720 _ 
ING) = 24 = 30. 


the orbits of N™ on {1,2,...,30} are {1}, {2, 12, 27, 25, 29, 14, 10, 11, 


13, 28, 24,8}, {3, 26,9}, {4,15,5,7,16,19} and {6, 20, 22, 21,30, 18,23,17}. We choose a 
representative from each orbit, find the double costs to which Nt t; belongs to each 


VE {1,9,3,456): 


Nt, -t) = Nt? = N € [x]. This will go back to [«]. Since there is one element in 
this orbit, there is one t; that thaks [1] to [x]. 


Nt, - tg = Ntyt2 € [12]. This is a new double coset, which will extend the Cayley 
graph from [1] to [12]. Since there are 12 elements in this orbit, there are 12 tis 


that take [1] to [12]. 


Nt, - t3 = Ntytg € [13]. This is a new double coset, which extends our graph from 
[1] to [13]. Since there are 3 elements in this orbit, there are 3 ts that take [1] to 
[13]. 


Nt, -ta = Ntita = Ntie € [1]. This double coset will collapse. Since there are 6 
elements in this orbit, there are 6 t/.s that take [1] to [1]. 


Nt, - tg = Ntitg = Nto2 € [1]. This double coset will collapse. Since there are 8 
elements in this orbit, there are 8 ts that take [1] to [1]. 
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Word of Length Two [12], and [13] 


(i) We are at a new double coset [12], Ntitg2N = {N(tit2)"|n € N}. The coset stabilizer 
of the coset Ntyto is N@?) = {n € N|(tyt2)” = tito} 


= < (3, 26)(5, 19)(6, 20)(7, 15)(10, 28)(11, 29)(12, 25)(13, 24) 
(14, 27)(17, 30)(18, 22)(21, 23)>. 


Since |N“@?)| = 2 then the number of single cosets in [12] is THC = 12) = 360. 

Now, the orbits of N“?) on {1,2,...,30} are {1}, {2}, {3,26}, {4}, {5,19}, {6,20},{7, 15}, 
{8}, {9}, {10,28}, {11,29}, {12,25}, {13,24}, {14,27}, {16}, {17,30}, {18,22}, and 
{21,23}. We choose a representative from each orbit, and determine the double costs to 
which Ntytats, 


where 7 € {1,2,3, 4,5, 6, 7,8, 9, 10, 11, 12, 13, 14, 16, 17, 18, 21} belongs. 


e Ntit2-t;) = Ntitgt;. This gives the relation titat) = (yx 7y)titets. This double 
coset will go to [1,2,4]. Since there is one element in this orbit, there is one ¢; that 


takes [12] to [1, 2, 4]. 


e Ntitg + t2 = Nt,t} € [1]. This will go back to [1]. Since there is one element in this 
orbit, there is one t; that takes [12] to [1]. 


e Ntto-t3 = Ntytot3. This gives the relation tjtgt3 = t1t1,. This double coset will 
collapse. Since there are 2 elements in this orbit, there are 2 ts that take [12] to 


[12]. 


e Ntitz-t4 = Ntytot, € [124]. This is a new double coset, which extends our graph 
from [12] to [124]. Since there is one element in this orbit, there is one t; that takes 


[12] to [124]. 


e Ntytg-ts = Ntytets. This gives the relation tytot; = (xy tx~*y~!)topto. This 
double coset will collapse. Since there are 2 elements in this orbit, there are 2 ts 


that take [12] to [12]. 


e Ntyto : te = Nty toate. This gives the relation ty tote = (y-} * x! * y)*tate. This 
double coset will collapse. Since there are 2 elements in this orbit, there are 2 ts 


that take [12] to [12]. 
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Ntyto-t7 = Ntitot7. This gives the relation tytat7 = (yryx ty~?x)tgtg. This double 
coset will collapse. Since there are 2 elements in this orbit, there are 2 ts that take 


[12] to [12]. 


Ntyto-tg = Ntytotg. This gives the relation tytotg = tjtg9. This double coset will 
send to [13]. Since there is one element in this orbit, there is one t; that takes [12] 


to [13]. 


Ntit2-tg = Ntitotg. This gives the relation titotg = titg. This double coset will 
collapse. Since there is one element in this orbit, there is one ¢; that takes [12] to 


[12]. 


Ntyto- tig = Ntitotio. This gives the relation t,tgti9 = tyta4. This double coset 
will collapse. Since there are 2 elements in this orbit, there are 2 ts that take [12] 


to [12]. 


Ntyto-t1, = Nt toty,. This gives the relation t,tot1, = tyt3. This double coset will 
send to [13]. Since there are 2 elements in this orbit, there are 2 tis that take [12] 
to [13]. 


Ntyto-tyg = Ntitotig. This gives the relation t,tgtjg = tytg5. This double coset 
will collapse. Since there are 2 elements in this orbit, there are 2 ts that take [12] 


tor(t2 |. 


Ntito - t13 = Ntytoti3. This gives the relation Nt tgt13 = tyteg. This double coset 
will collapse. Since there are 2 elements in this orbit, there are 2 ts that take [12] 


to [12]. 


Ntyto-tya = Ntytoti4. This gives the relation t,tgtj4 = tyte7. This double coset 
will collapse. Since there are 2 elements in this orbit, there are 2 ts that take [12] 


to [12]. 


Ntyto -t16 = Ntytotie. This gives the relation ty tote = (yxa-? *y)tyt. This double 
coset will collapse. Since there is one element in this orbit, there is one t; that takes 


[12] to [12]. 
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e Ntyto-t17 = Ntytoti7. This gives the relation tjtgt)7 = t4tjgt12. This double coset 
will send to [124]. Since there are two elements in this orbit, there are 2 t; that take 


[12] to [124]. 


e Ntit2- tig = Ntytotig. This gives the relation tytgt1g = (yry~*)*tatet;. This double 
coset will send to [1, 2,4]. Since there are two elements in this orbit, there are 2 tis 


that take [1,2] to [1, 2, 4]. 


1 


e Ntyt2- tg, = Nt itgt2,. This gives the relation tytate; = (& xy * x? x y+)tetoteo. 


This double coset will send to [124]. Since there are 2 elements in this orbit, there 


are 2 ts that take [12] to [124]. 


(ii) We are at a new double coset [13], Ntit3N = {N(tits)"|n € N}. The coset 
stabilizer of the coset Nt,t3 is NC®) = {n € N|(tyt3)” = tts} 


=< (2, 12)(4, 15)(5, 16)(6, 22)(8, 28)(9, 26) (11, 24)(13, 14) 
C17 5 189/20, 30) (21 23) 7, 20), 

(2, 27)(4, 5)(6, 21)(8, 24)(9, 26)(10, 25) (11, 28)(12, 29) 
155-16): C17 3:80) (18-20) (22,523); 

(2, 11)(4, 16)(6, 30)(7, 19)(8, 29)(10, 13)(12, 28)(14, 25) 
(17; 22) (18, 23) (20, 21) (24, 27), 

CUS. 3) Oi 96 5--Da,. 98. 90. 475-28. 6.14, 95% 5, AS, 16.10; 

15,. 14) (7... 95. 19,- 26) (8, 30, 27; 22, 11, 18, 12, 21)>. 


IN| __ 720 _ 
Ivy — 16 = 45 


Now, the orbits of N(@#) on {1,2,...,30} are {1,3}, {2, 12, 27, 11, 20, 21, 22, 17, 
18, 6, 23, 30, 29, 28, 24,8}, {4, 15, 5, 16, 25,14, 13,10}, and {7, 19,9, 26}. We choose a rep- 


Since |N“!3)| = 16 then the number of single cosets in [13] is 


resentative from each orbit, and find the double costs to which Nt t3t; belongs to each 


Pe Bary 


e Ntits-t3 = Ntit? € [1]. This will go back to [1]. Since there are two elements in 
this orbit, there are 2 t/.s that take [1,3] to [1]. 


e Ntyt3-tg = Ntit3tg. This gives the relation Ntit3t2 = t1t1,. This double coset will 
send to [12]. Since there are 16 elements in this orbit, there are 16 t/.s that take [13] 
to [12]. 


e Ntit3+t4 = Nt,t3t4. This gives the relation tjt3t, = (y? * 2? * y * x)t3tie. This 
double coset will send to [12]. Since there are 8 elements in this orbit, there are 8 


tis that take [13] to [12]. 
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e Ntit3-t7 = Ntyt3t7. This gives the relation tyt3t7 = (xe yeux yxa «xy ')tyts. 
This double coset will collapse. Since there are 4 elements in this orbit, there are 4 


tis that take [13] to [13]. 
Word of Length Three [124]: 


We are at a new double coset [124], NtitotsN = {N(titets)"|n € N}. Now, the coset 
stabilizer of the coset Ntytats is N@4) = {n € N|(titgta)” = titeta} 


=< (1, 2)(3, 6, 26, 20)(4, 8)(5, 24, 19, 13)(7, 28, 15, 10) 
(9, 16)(11, 22, 29, 18)(12, 23, 25, 21)(14, 17, 27, 30)>. 


N(@24) generated by 4 elements. 

Since |N“?4)| = 4 then the number of single cosets in [124] is NCHA =) 180: 

Now, the orbits of NO on {1, 2, ...,30} are {1,2}, {4,8}, {9, 16}, {3, 26,6, 20}, {5, 15, 24, 13}, 
{7, 15,28, 10},{11, 29, 22, 18}, {12, 25, 23,21}, 

and {14, 27, 17,30}. We choose a representative from each orbit, and determine the dou- 

ble costs to which Ntytgt4t; belongs to each 


i € {1,3,4,5, 7,9, 11, 12, 14}. 


e Ntitota-t) = Ntytetat,. This gives the relation tjtgtat; = (yx 7y)tit2. This double 
coset will go back to [1,2]. Since there are two elements in this orbit, there are 2 


tis that take [1, 2, 4] to [1,2]. 


ly 


e Ntitta- t3 = Ntitotatz3. This gives the relation tytgtat3 = (x2 * y7! * a7? & yW 
a ”)tgtita. This double coset will collapse. Since there are 4 elements in this orbit, 


there are 4 tis that take [124] to [124]. 


e Ntitots-t4 = Nttet? = Ntte € [1,2]. This double coset will go back to [1, 2]. 
Since there are 2 elements in this orbit, there are 2 tis that take [1, 2,4] to [1, 2]. 


2xaxy*x')tootg. 


e Ntytot4-t5 = Nt, totats. This gives the relation tytgtgts = (yxxxy 
This double coset will go back to [12]. Since there are 4 elements in this orbit, there 


are 4 tis that take [124] to [12]. 


e tytota-t7 = Ntytataty. This gives the relation tjtgtat7 = ((yxxxy*a | «xy !)?)taoto. 
This double coset will go back to [12]. Since there are 4 elements in this orbit, there 


are 4 tis that take [124] to [12]. 
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e Ntytot4- tg = Ntytotatg. This gives the relation tytatatg = (x? *Yy * EO? x y)ty tots. 
This double coset will collapse. Since there are 2 elements in this orbit, there are 2 


tis that take [124] to [124]. 


e Ntytota- ty, = Ntytet4ti,. This gives the relation 
tytotaty, = (x2y~!w2y~!x2-2)tgt;. This double coset will go back to [12]. Since 
there are 4 elements in this orbit, there are 4 ts that take [124] to [12]. 


e Ntytot,- tig = Ntitetatig. This gives the relation tytgtatig = (2 72y—")tigtsta. This 
double coset will collapse. Since there are 4 elements in this orbit, there are 4 tis 


that take [124] to [124]. 


e Ntytota- tia = Ntytetati4. This gives the relation tytotaty4 = (yx?) tietoeta. This 
double coset will collapse. Since there are 4 elements in this orbit, there are 4 ts 


that take [124] to [124]. 


Conclusion: 
The double coset enumeration gives that 
IG| < (IN| + |NtiN| + |NtiteN| + |NtitsN| + |NtitetaN|) x |N| 
= (1+ 30 + 360 + 45 + 180) x 720 
= (616 x 720) = 443520. A Cayley diagram of G over S¢ is given below. 


[12] 
4-+4-2-4-4. 
2+2=+2+2+1+2+2+2+2-1 ¢ o 
1+1+2+2+2 2+2+4+4 
1 180 
1+2 [124] 
12 
(30 
(1) ? 
16+8 
[13] 


Figure 8.2: Cayley Diagram for M22 Over S¢ 
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Chapter 9 


Group Representation and 


Character Theory 


9.1 Group Representation 


The main reason to study the group representations is to simplify the study of 
groups. Representation theory shows how we can study groups by reducing many group 
theoretic problems to basic linear algebra calculations. In order to define the group rep- 
resentation we define groups, homomorphism, automorphism, the general linear group, 


and the module theory in the first chapter. 


Definition 9.1. Let F be a field and let A be an F-vector spice which is also a ring with 1. 
Suppose for allc € F andz,y € A, that (cx)y = c(xy) = x(cy). Then A is an F-algebra. 


Definition 9.2. Let A be a F-algebra. A representation of A is an algebra homo- 
morphism X : A + M,(F). The integer n is the degree of X. Two representation 
X, D of degree n are similar if there exists a nonsingular n x n matrix P, such that 


X(a) = P-!D(a)P for alla ec A. 


Definition 9.3. Let F be a field and G a group. Then a F-representation of G is a 


homomorphism x :G —> GL(n,F) for some integer n. 
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Definition 9.4. In a linear representation, let K be field and G be a group, and let the 
function A send the group G to the field K, then every group possesses the trivial or 


principle representation given by the constant function (x) = 1,2 € G. 


Definition 9.5. The matrix representation N(x) is permutation matriaz, that is it has 


exactly one unite in each row and in each column. 


Definition 9.6. The representation is injective or faithful if and only if the kernel 


reduces to the trivial group {1}. 


Example 9.7. Let A(x) and A(y) be matrices representation of group G' of degree (dimen- 
sion) m over K, which K is a field. Then the equation A(x) = A(y) > A(x)(A(y))~! = 


A(y)(A(y))“! = A(a)(A(y))7"t = I > A(ay) =I, for the faithful representation that 


1 


implies xy~~ = 1, that is x = y. 


Definition 9.8. Let G be a group. The vector space V over K is called a G-module, if 
a multiplication va(v € V,x € G) is defined, subject to the rules: 


1. vx EV; 
2. (hu+kw)x = h(vr) + k(wa), (v,w € Vj h,k € K); 
3. u(xy) = (va)y; 
4. vl=v. 
Definition 9.9. Let V be a G-module over k. We say that U is a submodule of V if 
1. U is a vector space (over K ) contained in V, and 
2. U is a G-module, that is ux € U for allueU anda eG. 


Every G-module V possesses the trivial submodules U = V and U = 0. A non-trivial 


submodule is also called a proper submodule. 
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Definition 9.10. Let V be a nonzero A-module. Then V is irreducible if and only if 


submodules (subrepresentation) are 0 and V. 


Theorem 9.11. (Maschkes Theorem) 
Let G be a finite group and F a field whose characteristic can not divide |G|. Then every 
F |G]-module is completely reducible. 


9.2 Character Theory 


In this section we will determinate a representation by its character which is 
important for the study of finite group representations. In order to define the character 
and find the character table we will define the conjugacy classes of the group. We will 
find that there is a intimate relation between the character of a representation and the 


conjugacy classes of the group. 


Definition 9.12. Let a and b be elements of a group G. We say that a and b are 
conjugate in G (and call b a conjugate of a) if xax~! = b for some x € G. The 
conjugacy class of a is the set cl(a) = {rar "|x € Gh. 

Note: We can define the conjugate in G for a and b by a® = xax~! = b;Vx € G, and the 


order of a® is equal to the order of a. 


Example 9.13. We will find the conjugacy classes of the symmetric group S3. As we 
know that S3 = {e, (12), (13), (23), (123), (132)}, and also we now the definition of the 
conjugacy classes Cyof the element a is the set cl(a) = {saan "le € Gh. 

So, we will start with e to find the first class C1, suppose a = e => cl(e) 

= {eee™, (12)e(12)~+, (13)e(13)~1, (23)e(23)—!, (123)e(123) 1, (132)e(132)-1} = {e}. 

= Let hy = {el be Cj. 

Then, to find the second class C2 we will take the second element which is a 2-cycle, 
suppose a = (12) = cl((12)) = {e(12)e™*, (12)(12)(12)~+, (13)(12)(13)—4, 

(23) (12)(23)~+, (123) (12)(123)—!, (132) (12)(132)-1} 

= {(12), (23), (13)} = el((13)) = el((23)). 

=> Let ho = {(12), (23), (13)} be Co. 

To find the third class C3 we will take element with a 3-cycle, suppose a = (123) > 
cl((123)) = {(123), (132)} = cl((132)). 
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=> Let hg = {(123), (132)} be C3. 
To check the work we will add the number of the elements in all classes to get the order 
of S3, hy = ho = hg =14+34+2=6=|83| 


Thus, we have a table for conjugacy classes ready to use. 


Table 9.1: Table for Conjugacy Classes of 53 


S3 Order : Element | Length 
C; = {1} | Orderl : 1 1 
Cz = {2} | Order2 : (12) 3 
C3 = {3} | Order3 : (123) 2 


Definition 9.14. [fa € G, then the centralizer of a in G, denoted by Cg(a), is the set 
of alla € G which commute with a. 

Ce(a) = {g € GlaY = a}. It is immediate that Cg(a) is a subgroup of G. 

Theorem 9.15. If a€G, the number of the conjugates of a is equal to the index of its 


centralizer: \|a°| = [G : Cg(a)], and this number is divisor of |G| when G is finite. 


Example 9.16. We find the centralizer of a = (1,2,3,4,5,6,7,8,9) in Dg to illustrate 
the last theorem. 


By using the definition of the centralizer, we have that Cg(a) = {g € Gla’ = a} = {ae = 


=a a a a a a a a} 


=> Cg(a) = {e,a,a?,a?,a*,a°,a°,a’,a®} We note that |Cg| =9 since the order of Dg is 


18, we have = = 2 = the number of the conjugates of a. 
ICa(a)| 9 


Definition 9.17. Let X be an F-representation of G. Then the F-character x of G 
afforded by X is the function given by x(g) = trX(qg); 

where trX(g) is the trace of the action of g on X, and the traces of conjugate matrices 
are equal. 

Note that we call a character irreducible if the associated representation is irreducible. 
The dimension of the representation which is have the character value at 1 called x(1) is 
the degree of x. We denote that by y(1) = degX. However, characters of degree 1 are 


called linear characters. 


Definition 9.18. The alternating character of the symmetric group S;, (for each n>1) 
defined by 
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€(a) = 


{ 1 if xis even 
—1 if x is odd 
Lemma 9.19. (a) Similar F-representation of G afford equal characters. 


(b) Characters are constant on the conjugacy classes of a group. 


Corollary 9.20. The number k of the similarity classes of irreducible representation of 


G is equal to the number of conjugacy classes of G. 
Corollary 9.21. The group G is abelian iff every irreducible character is linear. 


Theorem 9.22. (Character relations of the first kind) 

Let x(x) and x(x) be the characters of the irreducible representations A(x) and B(x), 
respectively. Then 

tif A(z) ~ B(x) 


VO O— if A(x) & B(a) 


9.3. Character Table 


In this part we will find the character table for some groups by using some of 
the definitions and theorems we mentioned before and using the conjugacy class for each 


irreducible character. 


Definition 9.23. The character table is a square array of complex numbers whose 


rows correspond to the x; and whose columns correspond to the classes X;. 


Theorem 9.24. Let G be a group of order g. If G has k conjugacy classes, there are, up 


to equivalence, k distinct irreducible representation over C, FY, F@),...,F®. If FO is 


ko 
of degree f, then g = FO, 
i=1 


Theorem 9.25. Let G be a finite group having the distinct irreducible characters 


ko. G 
10,10), x. Leth <i,g <h. Then J xy) = ls, 5, 
i=l a 
(a) In a character table, the dot product of any column with the conjugate of any other 


column is 0. 
_ (|G 
(b) In a character table, the dot product of the column a with its own comjugate is ee 
a 
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Example 9.26. The character table of 53. 

In order to build the character table of the symmetric group S3 we will use the conjugacy 
classes and find the three simple characters which are the trivial, alternating, and arbitrary 
representation. From the conjugacy classes we know that the character table has to be 
a3x 3 matrix, and also we know how we can obtain degrees of unknown characters by 
squaring the degree from the conjugacy classes and add them together. We know that the 
trivial representation is a representation that takes every element in S3 to the identity, 
so the first row will be the trivial character x (2) which is the identity character. Then, 
the second row will be alternating representation which means we will look at C; then if it 
even we will get 1 and if it odd we will get -1, so the second row will be x2) (x) = 1,-1,1. 
To illustrate the last character which is the arbitrary representation we will use the last 
two theorems. The first element of the third row will be 12+1?+(f)? =6 > (f®)? =4 
=> f@) =2. The next two elements x and y will be (1.1) + (1.(—1)) + (22) =0 > 22 =0 
=> x2 =0, and (1.1)+ (1.(1)) + Qy) = 0 => 2y = -2 > y=-1. Then the character table 


will be, 


Table 9.2: Character Table of S3 


Classes | 1] 2 | 3 
Size 1} 3 | 2 
Order | 1/2 | 3 
ve) 1)/1/1 
x2) ies Bh 
x) 2 Or | 


Example 9.27. The conjugacy classes and the character table of Dg. 

We now that G = Dg = {a,bla® = b? = e,bab-' = a~*}, so that mean we have 
G = {e,a,a?,a®,a*,a°,a®, a", a®, b, ab, a2b, ab, a*b, a>b, a®b, a’b, a8b}. From the definition 
of G, we have those a® = 1> a8 =a“!, B® =13b=07!, andbxaxb'=a'!3> ba= 
a ‘b-! > ba = a®b, then let a = (1, 2,3, 4,5,6,7,8,9) and b = (1,9)(2,8)(3, 7)(4,6) Now, 
to find the conjugacy classes of G We will apply the definition of the conjugacy classes. 
We will start with e to find the first class C,. e@ = {e9\g € G} = {geg "|g € G} = fe}. 
Let d, = {e} be Ci; 

To find the second class Cz we will take a 2-cycle. (b)° = {b9|g € G} 
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= {b° be bv pe? pw" pe pe pw" pe Ag pee poe pod pub pee pore pe'b poroy 
= {b, ab, a*b, a°b, a®b, ab, ab, a°b, ad}. 

Let dz = {b, a*b, a*b, a®b, a®b, ab, a3b, a°b, a"b} be Co; 

To find the third class C3 we will take a 3-cycle. (a*)% = {(a*)9|g € G} 


6 7 8 2 3 4 5 
4a 4a 4a 4b 4ab qe bane bao bare b 


4a° 
»a »a »a »a »a o) 


2 3 4 
= hare, ae qe aas4 4a a 


a 

ata gta’ gta*by — (¢4, a5}. Let dx = {a‘,a°} be C3 ; 

To find the forth class C4 we will take a 9-cycle. a& = {a9|g € G} 
a if 8. ar a® gb gab gab gab qath garb 

= {a,a°}. Let dy = {a,a®} be Cy; 

To find the fifth class Cs we will take a 9-cycle. (a)° = {(a?)9|g € G} 


2 3 
ans are q2e a q2e b 


5 
a ~@ 


a 
5a 


2 
=A pa a ,a ,a 


2a° 


2 3 4 
= fare ar". q2ze ar" 2a a 


,a ,a 
4 5 6 7 8 
74 I ce b ae bar et = {a?,a"}. Let ds = {a?,a"} be Cs; 


Finally, to find the siath class Cg we will take a 9-cycle. (a®)% = {(a°)9|g € GY 


3a° 


6 
a 3a 


2 3 4 
— fare. a. q3e age” 3a i, 


a 

9 
3 4 5 6 7 8 : 

ar? ar Part gee? git) gee Ok = (ae ao}. Let de = {a7 ,a°} be Cav We will con- 


struct the conjugacy classes table of Dg to be clearly. 


Table 9.3: Table of Conjugacy Classes of Dg 


Dg Order : Element Length 
C; = {1} | Orderl : e dyp='l 
Cz = {2} | Order2 : (1, 9)(2, 8)(3, 7)(4, 6) dg = 9 
C3 = {3} | Order3 : (1, 4, 7)(2, 5, 8)(3, 6, 9) | dg = 2 
Cy. = {4} | Order9 (1,2, 3; 4).5,6, 7,8; 9)> | da=2 
Cs = {5} | Order9 : (1, 3, 5, 7, 9, 2, 4,6, 8) | ds =2 
Ce = {6} | Order9 : (1, 5, 9, 4, 8, 3, 7, 2,6) | dg =2 


Because we get 6 conjugacy classes, the character table has 6 irreducible char- 


acters called by xy“, x2), ..., ©. 


1. As usual the first character x“ will be the trivial character. 


2. We know the order of the normal subgroup of Do divides the order of Dg. The 


possible order of the normal subgroup other then the identity or the whole group 
should be 2, 3, 6, 9. We use the right coset to find which order we will use, so 


we have G/N = S a 


= — = 6 right cosets. These look at normal 
a8 >  -féacar} 3 3 
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subgroup of order 6 to use it to find the first two nontrivial characters. We will 


chose S3 to be the normal subgroup of order 6. Since we know the character table 


of S3, 


Classes Cy 1 (1,2) (1,2,3) 
Size ha 1 3 2 

gp) fot 1 

g) 26 a 


e We will use the alternation character to fill the irreducible character x). 
MO aya AL 


e We will use this method (69,6 a to fill the irreducible character y°). We 
construct the induced character @© with the definition; 


oG = oe ,, ow), (w € CaM Ss) 


Going through the siz classes of G we optain that 
3 3 

1) 68 =7D, el) = 5 x1=3. 
3 

2) oF = 9 2 $C) =-—x (3x —-1)=-1. 


8) $§ = 5 Da dat) = 5 x (2x1) =3. 


O| vw 


3 3 
4) OF = 08 = 68 = 5X0 O(0) = 5 x (0) =0. 
=> (67, 6%) G= qi +9 +18+0+0+0)=2 


Thus, 6° is the sum of two simple characters. Hence 6% — x) is simple char- 


acter. We denoted by x), 


x) = 2,0,2,-1,-1,-1 


3. In order to continue our search for the characters we use cyclic group of order 9 
call it U. 
U:1,u,u?,u3,u4,u°, u®,u’,u8, where u = (1, 2,3, 4, 5, 6, 7, 8, 9). 
A(u) = Z, where Z is an arbitrary ninth root of unity other then unity. Take 


Z= es, where Z can replaced by Z?, or Z®, or ..., or Z® and Z+Z7+...4+Z8 = —1. 
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18 
To compute the induced character X°, n = [G : U] = Go 2: 


2 
(a) C:NU =1> =F A) 


2 
SS x = 2. 
1 
2 
(b) C20 U = 0 AY =F Vy X(0) 
ens 
= i: 


2 
(Chl Strat Se = 5 Youd4ua ACU? + U4) 


= 5x B+ E4= 284 24, 
2 
(d) Canu = {u,u8} > rA¥ = 5 eutus Au + w*) 


2 
= 5x Zt+BaZ+2. 


2 
> tia? Nu? a u’) 


(e) C5 U Ste aS ie = 5 


2 
=5 x24 = L?+Z", 
2 
C0 Steal So = 5 Deut tus A(u? + u®) 


2 
Sa i al a 


y= OU Pan GEL? PG! G8 Ze 
x9 =2,024 21, 277+2Z7 , 234+7°,74+28 
x9 =2,024 24, 734+2Z%,74+28 , 7742" 
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9.4 Induced Character and Monomial Character 


Definition 9.28. Let H C G and let ¢ be a class function of H. Then pS, the induced 
character function on G, is given by 

C= ih >> p(w), (w € Ca NH) Where g and h are the order of G and H respectively, 
and Ca ihe conmugaen class of G. 


Definition 9.29. Let x be the character of G. Then x is monomial if y = y°, where 
y is a linear character of some (not necessary proper) subgroup of G. The group G is an 


M-group if every x € Irr(G) is monomial. 


After we get the faithful linear character of the subgroup H we will work to find the 
monomial matrix. In order to find that we have to get a right transversal of H in G 
to determine haw many tis (right cosets) we have. We write G = Ht, U HtgU...U Htn, 


so we are ready to right the monomial matrices. That is 


pltiety!) pltiaty!) ... yltetz?) 

pltaety!) (tarts!) ... ylteet;) 
A(x) = 

pltrty?) pltraty!) ... gltnaty}) 


Then, we will do the monomial matrices for other generators of G. Note, the monomial 
matriz has to ben x n matrix, where n is the index of H in G. Therefore, we give some 


examples of groups for which we find the monomial representations matrices by using 
MAGMA. 


9.5 The Monomial Progenitor 5*? :,, (2° : 2) 


First, we will find all irreducible characters of the finite group (2° : 27) to search 
for the subgroup H of N such that [N : H] equal to a degree of an irreducible character 
of N. 


> S:=Sym(8) ; 

> aa:=S! (2, 5)(6, 7); 

> bb:=S! (1, 23, NG, 56, 8); 
> ce:=S! (1, (2, 64, 8), 1; 
> dd:=S! (1, 2)(8, 6)(4, 5)(7, 8); 
> ee:=S! (1, 4) (2, 5) (3, 8)(6, 1); 
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> N:=sub<S/aa,bb,cc, dd,ee>; 

> CH:=CharacterTable(N) ; 

> CH; 

Character Table of Group N 

Class | 1223 4 5 6 7 8&6 91011 121314 15 16 17 
Size | 1 2 

Order: f 22.82 Be poe eae 2 et ey 


Ke 
o 


X.16 + 1 1 1-1 1-1-1-1-1#1-1#1-1é#1-1iii1éi1 
X.17 + 4£-4000000000000000 
As we see there is only one irreducible character of degree 4, so we need H 3 [N: H| = 4. 
In the character table of H we will look for an induced linear irreducible character of H 
that can give an irreducible character of N of degree 8. Then we need to check if that 


linear character is faithful or not. 


> S:=Subgroups (N) ; 

> for « in [1..#5] do if #S[i] ‘subgroup eq 8 then i; end if; end for; 
33 

67 

> H:=S[33] ‘subgroup; 

> #H; 


fe) 


> 

> ch:=CharacterTable(#); 
> ch; 
> 
> 


Class / 12 3 4 5 6 7 
Size | 1 
Order | 122 2 


wR 
Re 
me 
NH 
Be 
wR 
wR 
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X.1 + 1 1 11111441 
Kia #S DL Death fo f-sh ea 
KS 0 Lelest Lk Lf Lt 
X.4 0.0 Peel. hb stash: foeL. 
Beh. -#2- Oh OE A Eat Sdesto ai 
BRiO.- #2 TO ahah Si estond,” D> ad 
BT? Ole “Toad oate 1. oD Steak OL. 
X.8 O 1-1 1-1 I -I I -I 


I = RootOfunity(4) 


> I:=Induction(ch[3],N); 
> I; 
(4, -4, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) 
> IsFaithful (1); 
true 
> Norm(I); 
1 
> CH[17] eq I; 
true 
> T:=Transversal (N,H); 
> T; 
{@ 
Id(M™), 
(2, 5)(6, 7), 
(1, 203, DC, 5)(6, 8), 
1, D2, Od, 8, TD 
@} 


We have induced the linear faithful irreducible character x.3 of H to the irreducible char- 
acter x.17 of N. Note the degree of x.17 is equal to index of H in N. 


AP=[0> 4-4n: [1s S16] 7; 

for 4 in [1..4] do if aa*T[i]~-1 in H then iz, 
ch[3] (aa*T[i]~-1); end if; end for; 

for «~ in [1..4] do if Tl2]*aa*T[i]“-1 in H then i, 
ch[3] (T[2] *aa*Tli]~-1); end if; end for; 

for « in [1..4] do if T[3]*aa*T[i]~-1 in H then i, 
ch[3] (T[3] *aa*Tli]~-1); end if; end for; 

for «4 in [1..4] do if Tl4]*aa*T[i]~-1 in H then i, 
ch[3] (TI4] *aa*Tli]~-1); end if; end for; 


> A:=[0: 4 in [1..16]]; 
> Afa]:=1; A[S]:=1; A[12]:=1; A[15]:=1; 
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> G:=GL(4,5); 
> Order (G!A); 
2 

> aa; 

(2, 5)(6, 7) 


B:=[0: 4 in [1..16]]; 

for 4 in [1..4] do if bb*Tli]~-1 in H then i, 
ch[3] (bb*T[i]~-1); end if; end for; 

for 4 in [1..4] do if Tl2]*bb*T[i]~-1 in H then i, 
ch[3] (T[2] *bb*Tli]~-1); end if; end for; 

for 4 in [1..4] do if T[3]*bb*T[i]~-1 in H then i, 
ch[3] (T[3] *bb*Tli]~-1); end if; end for; 

for 4 in [1..4] do if T[4]*bb*T[i] 7-1 in H then i, 
ch[3] (T[4] *bb*T [i] ~-1); end if; end for; 


> B:=[0: 4 in [1..16]]; 

> B([3]:=1; Bf8]:=-1; B[9]:=1; Bl14]:=-1; 
> G:=GL(4,5); 

> Order (G!B); 

2 

> bb; 


(1, 2008, 1) Gy B65. &) 


C:=[0: i in [1..16]]; 

for «4 in [1..4] do if cc*T[i]~-1 in H then iz, 
ch[3] (ec*Tli]~-1); end if; end for; 

for «~ in [1..4] do if Tl2]*cc*Tli]~-1 in H then i, 
ch[3] (T[2] *cc*Tli]~-1); end if; end for; 

for «~ in [1..4] do if T[3]*cc*T[i]~-1 in H then i, 
ch[3] (T[3] *cc*Tli] ~-1); end if; end for; 

for 4 in [1..4] do if Tl4]*cc*T[i]~-1 in H then i, 
chl[3] (TI4] *cc*Tli]~-1); end if; end for; 


> C:=[0: 4 in [1..16]]; 

> Cl4]:=1; C[7]:=1; C10] :=1; C13] 2=1; 
> G:=GL(4,5); 

> Order (G!C); 

2 

> cc; 


(ti 8) (2 624; “620, 7 


D:=[0: 4 in [1..16]]; 
for 7 in [1..4] do if dd*T[i]~-1 in H then i, 


ch[3] (dd*T[i]~-1); end if; end for; 

for «4 in [1..4] do if T[2]*dd*T[i]~-1 in 
ch[3] (T[2] *dd*T[i]~-1); end if; end for; 
for «4 in [1..4] do if T[3]*dd*T[i]~-1 in 
ch[3] (T[3] *dd*Tli]~-1); end if; end for; 
for i in [1..4] do if T[4]*dd*T[i]~-1 in 
ch[3] (T[4] *dd*T[i]~-1); end if; end for; 


> D:=[0: 4 in [1..16]]; 

> Dl2]:=2; D[5]:=3; Dl12]:=3; D[15]:=2; 
> G:=GL(4,5); 

> Order(G!D); 

2 

> dd; 


(1, 2)33 6)(2 4 52-7, 8) 


E:=[0: «4 in [1..16]]; 


H then 2, 


H then 2, 


H then 2, 


for 4 in [1..4] do if ee*T[i]~-1 in H then iz, 


ch[3] (ee*T[i]~-1); end if; end for; 


for «~ in [1..4] do if Tl2]*ee*T[i]~-1 in H then i, 
ch[3] (T[2] *ee*T[i]~-1); end if; end for; 

for «~ in [1..4] do if T[3]*ee*T[i]“-1 in H then i, 
ch[3] (T[3] *ee*Tli]~-1); end if; end for; 

for 4 in [1..4] do if Tl4]*ee*xT[i]~-1 in H then i, 
ch[3] (T[4] *ee*Tli] ~-1); end if; end for; 

> E:=[0: 4 in [1..16]]; 

> E[i1j:=-1; E[6]:=-1; E[11]:=-1; E[16]:=-1; 

> G:=GL(4,5); 

> Order (G!E); 

2 

> ee; 

(1, 4), 5)(3, 8(6, 7) 

> M:=sub<G/A,B,C,D,E>; 

> #M; 

32 

> MIA, M!B, MIC, MID, MIE; 

[0100] [0 01 0] [000 1] [0 20 0] 
[1000] [000 4] [0 010] [3 00 0] 
[000 1] fl OOO] [0100] [000 3] 
[0 0 1 O] [0 40 0] {100 0] [0020] 


[400 0] 
[0 40 0] 
[00 4 0] 
£0002) 
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Those matrices have 4 columns, we will label them by 1, 2, 3, and 4 as ty, ta, tz, 


and ta respectively. Hence, t.s are of order 4. We label (t7, t3, t3,t2, ...,t{, t3, t§, t4) by 5 
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to 16. In order to replace that monomial matrices to monomial permutations we will use 
that labeling. We know that A,B,C,D and E are monomial automorphism of < t, > 
* < tg > * < t3 > * < tg > given by aj = ast; - tt. So, we will find A and B,C, D, 
and EF can be found similarly. 

In the monomial matrix A, we have a,2 = 1 and ag, =1 


ty = tty = th, tf = 03, t] = ty gives (1, 2)(5,6)(9, 10)(13, 14) 


a34=1 andag3=1 

ig = GS = 17,8 Ht. = tf ges (3,4) (7,8) (11, 12)5; 16) 
So, A=(1,2)(3,4) (5,6) (7,8) (9,10) (11,12) (18,14) (15, 16), 
B=(1, 3)(2.16)(5,-7) (0; I2)(9; J1) (10, 8) (13,. 15) (12, 4), 
C=(1, 4)(2, 3)(5, 8)(6, 7)(9, 12)(10, 11)(18, 16)(14, 15), 
D=(1, 6)(5, 14) (9, 2)(13, 10)(8, 12)(7, 4)(11, 16)(15, 8), and 
E=(1, 13)(5, 9)(2, 14)(6, 10)(8, 15) (7, 11) (4, 16)(8, 12); 

The presentation of N is < a,b,c,d,e|a? = b? = c? = d? = e? = 1, b* = bee, c* = 


c,c = cxe,d* = dxe,d° = d,d° = d,e* = e,e” = e,e° = e,e2 =e >. Now, we are 


in position to give a monomial presentation of the monomial progenitor 5** tm (2? : 27). 
We will fix one of the four tis, say t; and call it t. Then, compute the normalizer of 
the subgroup < t; > in N. Therefore, we will compute the set stabilizer in N of the set 
(tists te st; = 1, 5,9; 18: 


> S:=Sym(16) ; 

> aa:=S! (1, 23, 4)(5, 6€)(7, 89, 10) (11, 12) (13, 14) (15, 16); 
bb:=S! (1, 22, 16)(5, (6, 12)(9, 11)(10, 8)(13, 15) (14, 4); 
ece:=S! (1, 4222, 305, (6, D9, 12) (10, 11) (18, 16) (14, 15); 
dd:=S! (1, 6)(5, 14)(9, 2)(13, 10)(3, 12)(7, 4) (11, 16) (15, 8); 
ee:=S! (1, 13)(5, 9)(2, 14) (6, 10)(3, 15) (7, 11) (4, 16)(8, 12); 
N:=sub<S/aa,bb,cc, dd, ee>; 
G<a,b,c,d,e>:=Group<a,b,c,d,e/a~2=b “2=c “2=d“2=e “2=1, 

b“a=b*e, Cc “a=c, c “b=c*e, d a=d*e, d°b=d,d~c=d, 

e a=e,e b=e,e° c=e,e° d=e>; 

> f,G1,k:=CosetAction(G, sub<G/Id(G)>); 

> s:=IsIsomorphic(G1,N); 

> Ss; 


VvVVV VY 


true 
> s:=IsIsomorphic(M,N); 
> s; 
true 
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Sch:=SchreterSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(M): «4 in [1..12]]; 

for « in [2..32] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Schlt]] do 

tf Eltseq(Schl[iJ) [7] eq 1 then Plj]:=aa; end if; 
tf Eltsegq(Sch[i]) [7] eq 2 then P[j]:=bb; end if; 
tf Eltseq(Schl[i]) [7] eq 3 then Plj]:=cc; end if; 
tf Eltseq(SchliJ]) [7] eq 4 then Plj]:=dd; end if; 
tf Eltseq(Sch[i]) [7] eq 5 then Plj]:=ee; end if; 
end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[%i] :=PP; 

end for; 

for « in [1..32] do Schli], ArrayP[i]; end for; 


Now, we find the set stabilizer in N of the set (ila sett = {1,,5,9;.13} 

is generated by two elements of order 2, let ax c* b= (2, 14)(4, 16)(6, 10)(8, 12) and 
cx b*xd= (1, 5, 18, 9)(2, 10, 14, 6)(3, 11, 15, 7)(4, 8, 16, 12). Hence, presentation 
of the monomial progenitor 5** zm (23 : 27) is given by G < a,b,c,d,e,t >:= Group < 
a,b, c,d, e, tla? = b? = c? = d? = e? = 1, b* = bee, c* = c,c? = cxe, d* = dee, d° = d,d° = 


d,e* = e,e° =e, ce =e, e4 = et), tlarer) = 4, plored) — 22 >. After that we add more 


relations to the presentation of the monomial progenitor 5** : N to find its homomorphic 


images. 


for h,i in [0..10] do 

G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a~2=b “2=c “2=d “2=e “2=1, b“a=b\ 
*e,C~a=c,c b=cx*e, d-a=d*e, d~b=d, d~c=d, e“a=e, e“b=e, e~c=e, e~d=e, \ 

t75, t*(a*xc*b)=t, t* (c*b¥d)=t “2, (ext *t ~(c*e)) “h, ((b¥e) *t*t“d) “i>; 

af #G gt 32 then h,i, Index(G,sub<G/a,b,c,d,e>), #G; end if; end for; 
2 3 900 28800 

> G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2=b “2=c “2=d “2=e “2=1 \ 

,0°a=b*e, c“a=c, c“b=cx*e, d-a=d*e, d“b=d, d~c=d, e“a=e, e~b=e,e~\ 
c=e,e-d=e,t~5,t~(a*xc*b)=t, t~(c*b¥*d)=t “2, (ext*t~(c*e)) “2, \ 


((b*e) *t¥*t“d)~3>; 

> #G; 

28800 

> f,G1,k:=CosetAction(G, sub<G/a,b,c,d,e>); 
> #61; 


28800 
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#k; 


IN:=sub<G1/f (a), flo), flo), f(@), fle); 
T:=sub<G1/f (t)>; 
# Normalizer(IN,T); 


M®VVVeR Vv 


9.6 The Monomial Progenitor 7*° :,, (3? : 2") 


The group (37 : 2+) of order 144 has the distinct irreducible characters 

x) yx. We find there are two different irreducible characters; one of de- 
gree 2 and the other of degree 4, but the irreducible representation of degree 2 will 
give us an unfaithful linear character. So, we look for a subgroup of index 8 in N 
and take the subgroup H of order 18. By working in the character table of H and 
induce up to N, the third linear irreducible character of H is x? to obtain the irre- 
ducible character x) of N. There are 8 transversals of H in N, so there are 8 tls such 
that N = He U H(2,3,4,8,5,7,9,6) U A(2, 4, 5, 9)(3, 8, 7,6) U H(2,5)(3, 7)(4, 9)(6, 8) U 
H(2,7,5,3)(4, 8, 9,6) U A(2, 7, 4,6, 5,3, 9,8) U A(2, 9,5, 4)(3, 

6, 7,8) UA (2, 6,9, 7,5,8,4,3) and the monomial matrices will be 8 x 8. By using MAGMA, 


we get 


eS oo Oo oO, -:o So © 
> a > a > ee > a De 
OSs | SOS IS OP ES 
eS 2 oF oc oS S&S. © 
(ee) 
o co coc OoOClUrhPDhlhUcCOUCOHUCCO 
SO RS. 2 SF -S oO 
Oo eS Oo oS © +o 
SO: OO) Oo On O eS 
o oa ok Coco Co oc. Oo 
Oe Oe Oa OS Sa Ss 2D 
Or Om Oe te Oa OS, 
(cae ET a = A OY 
Ree Oi Sr OS OO AO Oa SS 
SO 3S) Ir OO: 5s RE 6S 
ee ee ee ee) 
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001 0 0 0 0 0 000 10 0 0 0 
000 01 0 0 0 000 00 1 0 0 
000 1 0 0 0 0 000 00 0 1 0 
Cx 000 00 0 1 0 ae 100 0 0 0 0 0 
000 00 1 0 0 0000000 1 
0000000 1 0 10 00 0 0 0 
1000 0 0 0 0 001 0 0 0 0 0 
0 10 0 0 0 0 0 100 010 0 0 
4 00 0 0 0 0 0 100 0 0 0 0 0 
040 00 0 0 0 040 00 0 0 0 
002 00 0 0 0 0040 0 0 0 0 
tts 000 2 00 0 0 F- 000 1 0 0 0 0 
000 0 1 0 0 0 000 02 0 0 0 
0000 0 2 0 0 000 00 2 0 0 
000 00 0 4 0 000 00 0 2 0 
0000000 1 00000 0 0 4 


These matrices have 8 columns, we will label them by 1 to 8 as ty,t2,t3,...,tg respec- 
tively. The entries of the matrices are in Z7. Hence, tis are of order 6. We label 
(G7 Ea lentes testis aot 

testa ates Lestest.) by 7 to 48. In order to replace that monomial matrices to monomial 
permutations we will use that labeling. We know that A, B,C,D,E and F are monomial 
automorphism of <ty >* <tg>*<tg3 >*<ty>*<th >* <tg >*<t7 >*<tg> 
given by aij = ast; > t}. So, we get that, A=(1, 2, 3, 5, 4, 6, 7, 8)(9, 10, 11, 13, 12, 
44,15, LO)(17; £8). 19, 21, 90, BB. 29. BL) 25, 26, 27, 29, 28.30, 31,82) (35;.34 305.01, 
36;°965 09; ZO)(ATs Ae AO AO bh 40, Ay 40) 

B=(2, 5)(8, 7)(6, 8)(10, 18)(11, 15)(14, 16)(18, 21)(19, 23)(22, 24)(26, 29)(27, 31) (30, 
32)(34, 87)(35, 39)(88, 40)(42, 45)(48, 446, 48), 

Ca hyo ae As by GO, OF D1 12 15 (10, TO Tae TON 1T, AG? 20. OS) (18, 21. BP. 
24) (25, 27, 28, 31)(26, 29, 30, 32)(38, 35, 36, 39)(34, 37, 38, 40) (41, 48, 44, 47) (42, 
45, 46, 48), 

D=(1, 4) (2, 6)(3, 1), 8) (9, 12) (40, 14) (11,15) (13, 16) (17, 20) (18; 22) (19, 23) (21, 
24) (25, 28)(26, 30)(27, 81)(29, 32)(38, 86)(84, 38)(35, 89)(87, 40) (41, 44) (42, 46) (48, 
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47) (45, 48), 

E=(1, 25, 9)(2, 26, 10)(3, 11, 27)(4, 12, 28)(6, 14, 30)(7, 81, 15)(17, 93, 41) (18, 84, 
42)(19, 48, 85)(20, 44, 86)(22, 46, 88)(23, 39, 47), 

and F=(2, 26, 10)(3, 27, 11)(5, 13, 29)(6, 14, 30)(7, 15, 81)(8, 32, 16)(18, 34, 42)(19, 
35, 43)(21, 45, 87)(22, 46, 38) (23, 47, 89)(24, 40, 48); 

The presentation of N is < a,b,c,d,e, f|a®, 67, c*, d?,e°, f%, (e, f),a? = c,c? = d,b* 
beet. =ce je9 df Hdd S06. Sade = fe? Sex (fret Sex (f° = 
e?, f* = ex (f?), f®? = f?, fe = (e?) * (f?), f4 = f?, f& = f >. Now, we are in posi- 


tion to give a monomial presentation of the monomial progenitor 7*8 :m N. We will 


fiz one of the forth tis, say t, and call it t. Then, compute the normalizer of the 
subgroup < t; > in N. Therefore, we will compute the set stabilizer in N of the set 
{tytptitpaiey = 1,9,17, 25, 33, 41,49,57. After we find the set stabilizer in N of the 
set {t1,t7, 02,17, 8, 8) = 1,9,17,25,88,41,49,57 is {b,b* f-1,e}, where 

b= (2, 5)(8, 7)(6, 8)(10, 18)(11, 15)(14, 16)(18, 21)(19, 23)(22, 24)(26, 29)(27, 31) 
(30, 82)(34, 37)(35, 39)(38, 40)(42, 45)(48, 4)(46, 48), 

bx f-t= (2, 29)(8, 31)(5, 10)(6, 16)(7, 11)(8, 30)(18, 26)(14, 32)(15, 27) (18, 37) (19, 
39)(21, 42)(22, 48)(23, 43)(24, 88)(34, 45)(35, 42)(40, 46), 

and € =. (1; 25, 9)(2, 26,.10)(8, 11, 27) (4; 12,28) (6, 14; 80)(7,81, 15) (17, 33, 41) (18, 
34, 42)(19, 48, 85)(20, 44, 36)(22, 46, 88)(23, 39, 47). 

Hence, a presentation of the monomial progenitor 7*8 tm (3? : 24) is given by G < 
a,b, c,d,e, f,t >:= Group < a,b,c, d,e, f,t|a®, b?, ct, d, e3, f?, (e, f),a? = ¢,c? = d,b* 
becnkd.c = ee = e4d 2 6.0 Sd. Se" = fe’ Sex f) eo Sex (f7),e° = 
e?, f? = ex (f?), f? = f*, fe = (e*) * (f7), f? = 7, f¢ = 07,06) = t,t % f-1) = 
t,(t°) =t* >. To check the monomial progenitor 7*° :m (3? : 2+) is wright we will find the 
orbit of the set stabilizer in N of the set haiti. £3, ¢8} = 1,9,17, 25, 33, 41, 49, 57 by 
MAGMA which is the following set 


Orbits (Stabiliser (WN, {1,9,17,25,33,41})); 

[ GSet{@ 1, 25, 9 @}, GSet{@ 4, 12, 28 @}, GSet{@ 17, 33, 41 @}, 
GSet{@ 20, 44, 36 @}, GSet{@ 2, 5, 10, 29, 13, 26 @}, 

GSet{@ 3, 7, 11, 27, 31, 15 @}, GSet{@ 6, 8, 30, 16, 32, 14 @}, 
GSet{@ 18, 21, 42, 37, 45, 34 OF, GSet{@ 19, 23, 43, 35, 39, 47 @}, 
GSet{@ 22, 24, 38, 48, 40, 46 @} J] 


So, we find that ty is commute with to,t3 and t4. We will add them in to the last mono- 
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mial presentation then run it in MAGMA to get the order has to be 7° x 144 

G < 4,b,¢.d,¢,f,t >= Group <-0,b,¢4, 6 fle 067.027. f° (6 f),c = ¢¢ = 
0° = be c8de 260 = 646,08 = 76.0 = dd =de"= fe = ex (f),e = 
e+ (f?),e4 = & ft = ex (f2), fo = f2, fe = (2) * (2), ft = Pf¢ = ft7,t) = 
ites DSht at Eye er eter) =: 

G; 

830131344 


The Monomial Progenitor 3*° :m, (2* : (2 x 5)) 


In the group (2* : (2x 5)) of order 160 has the distinct irreducible characters x“, x, ..., 
x49. We find there are two different irreducible characters; one of degree 2 and the 
other of degree 5, but the irreducible representation of degree 2 will give us an unfaithful 
linear character. So, we look at a subgroup of index 5 in N and take the subgroup H of 
order 32. By working in the character table of H and induce up to N, the third linear 
irreducible character of H is y? to obtain the irreducible character x of N. There are 5 
transversals of H in N, so there are 5 tis such that N = HeUH(1, 3,6, 10, 7)(2, 4, 8, 9, 5) 
UH (1,6, 7,3, 10)(2, 8,5, 4, 9)UA(1, 7, 10, 6, 3)(2, 5,9, 8, 4) UA(1, 10, 3, 7,6)(2,9,4,5,8) and 


the monomial matrices will be 5 x 5. By using MAGMA, we get 


0 10 0 0 0 10 0 0 1 0 0 0 0 
10 0 0 0 001 0 0 0 2 0 0 0 
A=}/00010]8=]00001]C=]0 02 0 0 
001 0 0 10 0 0 0 0 0 0 2 0 
000 0 1 000 1 0 000 0 2 
2 0 0 0 0 20 0 0 0 20 0 0 0 
0 20 0 0 0 1 0 0 0 0 2 0 0 0 
D=;}00100/]f=/];00200]F=]00200 
000 1 0 0 0 0 1 0 0 00 1 0 
000 0 1 000 01 0 0 0 0 2 


These matrices have 5 columns, we will label them by 1 to 5 as ty, ta, ts, ta, ts 


respectively. The entries of the matrices are in Z3. Hence, ts are of order 2. We label 
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(epptastavtrste) by 6 to 10. In order to replace that monomial matrices to monomial 
permutations we will use that labeling. We know that A, B,C,D,E and F are monomial 
automorphism of <t) >* <tz >* <t3 >*<tg>%* < ts > given by ajj =ast; > tt. 
So, we get that, A=(1, 2)(3, 4)(6, 7)(8, 9), B=(1, 2, 3, 5, 4)(6, 7, 8, 10, 9), C=(2, 7)(8, 
8)(4, 9)(5, 10), 

D=(1; 6); 9), B=, 6) (8. 8); and Fay) (2; 1); 815, 10): 

The presentation of N is < a,b,c,d,e, f\a?,b°,c?,d’,e, f?,b% = b4,c*? = cxd,e = 
cxd,d* =d,d° =d+e,d° = d,e* = ced f,e? =e f,ee = e,e* =e, ft =cxe, f= 


c, f° =f, f¢ =f, f° =f >. Now, we are in position to give a monomial presentation of 


the monomial progenitor 3*° tm N. We will fix one of the forth tis, say ty and call it t. 
Then, compute the normalizer of the subgroup < t; > in N. Therefore, we will compute 
the set stabilizer in N of the set {t1, t7} = 1,6. After we find the set stabilizer in N of 
the set {t1,t1°} = 1,6 is 

{(3, 8)(5, 10), (2, 7)(5, 10), (4, 9)(5, 10), (2, 4)(3, 10)(5, 8)(7, 9), (1, 6)(5, 10)} 

and that dx f = (3,8)(5,10), ex f = (2,7)(5,10), cxd*e = (4,9)(5, 10), 

a*xcx*b-1x*d = (2,4)(3, 10)(5,8)(7,9), andd*xex f = (1,6)(5, 10). 

Hence, presentation of the monomial progenitor 3*° tm (24 : (2 x 5)) is given by 

G <a,b,c,d,e, f,t >:= Group < a,b,c,d,e, f, tla’, b°, c?, d?, e7, f?,b% = b4, c* = cxd,c? = 
c*d,d* = d,d° =dxe,d° = d,e* =cxd* fie? =e fie =e,e4 =e, ft =cxe, fe = 
c, f° =f, ft =f, fe = f,8, temo teet t e*f <b, 

prrex(O” Dad —¢ plve*f —2 >. To check the monomial progenitor 3*° :m (24 : (2x5)) is wright 
we will find the orbit of the set stabilizer in N of the set {t1, t?} = 1,6 by MAGMA which 


is the following set 


Orbits (Stabiliser(N, f1,6})); 

[ GSet{@ 11 @}, GSet{@ 12 G@}, GSet{@ 13 GH, GSet{@ 14 @}, 
GSet{@ 15 @}, GSet{@ 1, 6 Gt, GSet{@ 2, 7, 4, 9 G, 

GSet{@ 3, 8, 10, 5 @ ] 


So, we find that t, is commute with tg, and tz. We will add them in to the last monomial 


presentation then run it in MAGMA to get the order has to be 3° x 160 


G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a°2,b°5,c°2,d°2,e2, \ 
f°2,0°a=b “4, c“a=c*d, c“b=c*d, d-a=d, d“b=d*e, d~c=d, e“a=c*d*f, \ 
e“b=exf,ec=e,ed=e, f“a=cx*e, f“b=c, f° c=f, f d=f, f-e=f,t 73, \ 
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t*(c*d*e)=t, t~(d*fj=t, tt (exf)=t, t~(axc*b ~-1*d) \ 
=t,t~(d*exf)=t "2, (t, ta), (t,t (a*b))>; 

#G; 

38880 

f,.G1,k:=CosetAction(G, sub<G/a,b,c,d,e,f>); 
#G1; #k; 

38880 1 

IN: =sub<G1/f (a), f(b), fc), f(@), fle), ff); 
#IN; 

160 

T:=sub<G1/f (t)>; 

#T; 

3 

# Normalizer(IN,T); 

32 
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Chapter 10 


Homomorphic Images 


In this chapter we will obtain the homomorphic images of various progenitor. 


Theorem 10.1. Let G = (t, ta,...,tn), where |t;| = 2, 1<i<n and 
let N = Normalizer(G,{< ti >,< te >,..,< tn >}), where N acts transitively on 
{<t1 >,< te >,...,<ty >}. Then G is a homomorphic image of 2*": N. 


10.1 The Group Mo 


Example 10.2. M22 is a homomorphic image of the progenitor gee (2732), 
We know that, M2 is generated by 16 elements of order 2. Let 


ty = (1, 16)(3,8)(5, 10)(6, 11)(7, 17) (9, 21) (13, 22) (18, 20), 
to = (1,8) (2, 12)(4, 22)(5, 19)(7, 14)(9, 15) (10, 13) (16, 20), 
ty = 9)(3, 13)(5, 18) (6, 17)(7, 11)(8, 22)(10, 20) (16, 21), 
= (1,7)(2, 19)(4, 13) (5, 12)(8, 14)(9, 16)(10, 22)(15, 20), 
= (1,5)(3, 17)(6, 13) (7, 8)(9, 18)(10, 16)(11, 22)(20, 21), 
= (1, 15)(2, 10)(3, 13)(6, 11)(7, 8)(12, 18) (17, 22) (19, 21), 
= (1, 11)(2, 12)(3, 14)(4, 6) (5, 9)(10, 17)(15, 20) (16, 19), 
= (1, 20)(3, 11)(5, 21)(6, 8)(7, 13)(9, 10)(16, 18)(17, 22), 
= (1, 13)(2, 20)(4, 7)(5, 9)(8, 10)(12, 16)(14, 22)(15, 19), 
tio = (1,22) (2, 9)(4, 8)(5, 20)(7, 10) (12, 15) (13, 14)(16, 19), 
ti = (1,19) (2, 18)(3, 11)(6, 13)(7, 17)(8, 22)(10, 12)(15, 21), 
tig = (1,3)(2, 20)(4, 17)(5, 19)(6, 10)(9, 16) (11, 14)(12, 15), 


t13 = (1,2)(3, 17)(6, 8)(7, 11) (10, 15) (12, 21 
tia = (1,6)(2, 19)(3, 10)(4, 11)(5, 20)(9, 15) 
tis = (1,17) (2, 9)(3, 4)(5, 12)(6, 14) (10, 11) 
tig = (1, 12) (2, 21)(3, 8)(6, 17)(7, 13) (10, 19 


(13, 22 
12, 16) 
15, 19) 


a a cme 


Se GBS ES ON 


(11, 22 


(18, 19), 
14,17), 
16, 20), 
(15, 18). 


Then Mo2 = (t1, ta, tz, ta, ts, te, tz, tg, to, tio, t11, 12, t13, tia, tis, te). 
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Now N= Normatizer (G,A<h >< ta >< te Sta >, < by >) < tg > <7 Ss <i > 


(ie Sox HG Pee et See he se fie Sh ee = His Ss tie So) = 


: 2) and 


it acts transitively on {< ti >,< te >,<t3 >,<ta>,< ts >,<t¢ >,< tr >,<tg>,< 


to >,< tio >< ti >, < te >, < tig >, < tia >, < tis >, < tig >}. A presentation of the 


progenitor ere (24: 2) is given by 


G<a,b,c,d,e,t>:=Group<a,b,c,d,e,tla4,b4, 


c°2,d°2,e°2, 


((a~-2) *d) , ((b~-1) * (a2) * (0 *-1)), ((a~-1) * (0 *-1) ¥a*(b7-1)), 
((a~-1) *c*(a~-1) *e), ((b7-1) *c*b*e), (c¥e) “2,472, (t,c)>; 


Table 10.1: Some Finite Homomorphic Image of 2*”” : QEeD) 


f s|w|a|y|zi{TJ | Order of G | Rough Shape of G 
0 0;0 |0/3]0] 4) 6144 2 (Die Sy) 

0 0|0|0/3]0)] 5 | 245760 e(As x 2) 

0 0|}0|3/3]31]0) 768 27 Ss 

0 0}3 |0/8]0)] 3) 1536 2% : Sy 

0 0}3 |0/4)9]9) 384 OP 87 

0 0/5 |0/3}]04 5 | 61440 210: As 

0 0/6 |0|3]|0) 4 | 3072 One Sa 


10.2 The Group Mo, 


Example 10.3. Mo4 is a homomorphic image of the progenitor 9° 


We know that, Mo4 is generated by 6 elements of order 2. Let 
t, = (2,19)(3, 17)(4, 24) (6, 13) (10, 16)(12, 14)(15, 23)(20, 21), 


to = (1,21)(2, 23)(3, 16)(8, 13)(9, 

ts = (1, 16)(3, 9)(5, 19) (6, 15)(7, 18)( 
ta = (1,11)(3, 21)(4, 12) (5, 22)(7, 8)( 
ts = (1, 15)(2, 20)(4, 13)(5, 18)(6, 16) 


22)(10, 11)(14, 15)(17, 18), 


10, 12)(11, 14)(23, 24), 


9,1 
(7, 


8)(14, 24) (17, 20), 
19)(8, 17)(21, 22), 


URS) 52). 


te = (2,8)(4, 7) (5, 20)(6, 12)(9, 10)(11, 22) (13, 23)(19, 24). 


Then Mo4 = (t1, ta, tz, ta, ts, te). 


Now NN = Normatizer(G,{< ty >.< ta >, < ts >< te Sy < te << te Sh) = 
2 and it acts transitively on {< ty >,< te >,< t3 >,< ta >,< th >,< te >}. A 


presentation of the progenitor (or (C2208) 


2)) is given by 


G<a,b,c, t>:=Group<a,b,c,t/a°2,b°2,c73, (a*b) “2, (akc~-1) “2, 


(b*(c~-1) *b*c), t "2, (t, a*b)>; 


Table 10.2: Some Finite Homomorphism Image of oe 


flaglhljilg kil Order of G | Rough Shape of G 
0/0/0/0/3]/0]7 | 24360 PGL(2, 29) 

0) 0.10) O:) 5: |B: | 5.) 1267200 2 (24 L5(11) e As) 
0|0|41]0)8|7 | 10 | 322560 23 e PGL(3, 4) 
0/0/5}/0)0]81|6 | 737280 10 0 
0/0/5/0/0/4]9 | 51840 2 @ U4(2) 
0/0/4/0/8]7]8 | 43008 2° PGLQ;7) 
0/0/5}/0)6]81]8 | 380160 27: Mio 


10.3. The Group 


Example 10.4. My; is a homomorphic image of the progenitor hal 


We know that, My is generated by 8 elements of order 2. Let 


ty = (1,4)(2,8)(3, 7)(9, 10), 


ty = (1, 10)(2,5)(3, 4)(6, 11), 
ti = (1, 6)(2, 9)(3, 10)(7, 8), 
ans 1)(2, 10)(3, 8)(7, 9), 
= (1, 9)(2, 4)(3, 11) (5, 6), 
= (1, 7)(2, 11)(3, 6)(4, 5), 
= (1, 5)(2, 7)(3, 9)(8, 10), 
a 8) (2, 6)(3,5)(4, 11). 


Then Mi = (t1, ta, tz, ta, ts, te, tz, tg). 


Now N = Normalizer (G,{< ti >,< te >,<t3 >,<t4>,<t3 >,< tg >,<t7 >,<tg > 
}) & (23: 2) and it acts transitively on {< t) >, < ta >,<t3 >,< ta >,<ts >,< te >,< 


t7 >,< tg >}. A presentation of the progenitor (o* 


: (23 : 2) is given by 


: (2 x 3) +2 


EIS Dy: 


G<a,b,c,d,t>:=Group<a,b,c,d,t/a4,b°2,c4,d°2, ((a~-2)*d), 


((e*-1) * (a2) *(c7-1)), ((a~-1) * (ec ~-1) *a* (c*-1)), ((a~-1) *b* (a~-1) *b* Cc), 


(b*(c*-1)) “2,2, (t,b)>; 


Table 10.3: Some Finite Homomorphism Image of 2*° : (23 : 2) 
a 7 |9|k|l | m|n) Order of G | Rough Shape of G 
0 0/3/0/0]0 | 6 | 15360 23 @ (27 e Ss) 

0 0);3)0)0]0 | 7 | 21504 2° x PGL(2,7) 

0 0);4)0)6]0 | 9 | 82944 82944 

0 0/4]0}]8)0 | 6 | 1290240 24 e (PGL(3,4) x 2) 
0 0/6/0|7]0 | 5 | 161280 (2? e PSL(3, 4)) 


10.4 The Group Mj» 


Example 10.5. Mj2 is a homomorphic image of the progenitor he 


We know that, Mj. is generated by 8 elements of order 2. Let 


ty = (1,6)(2, 4)(3, 10) (5, 8)(7, 12)(9, 11), 


te = (1, 11)(2, 6)(3, 4)(5, 12)(7, 8)(9, 10), 
t3 = (1, 4)(2, 11)(3, 5)(6, 12)(7, 9)(8, 10), 
cet 5) (2, 3)(4, 12)(6, 7)(8, 9)(10, 11), 
= (1, 10)(2, 5)(3, 7)(4, 8)(6, 9) (11, 12), 
= (1, 3)(2, 10)(4, 9)(5, 6)(7, 11)(8, 12), 
= (1, 7)(2, 8)(3, 9)(4, 6)(5, 11) (10, 12), 
= (1,8)(2, 7)(3, 12)(4, 11)(5, 9) (6, 10). 


Then Mj = (t1, ta, tz, ta, ts, te, tz, tg). 


gO? 4D); 
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The N= Normalizer(G,l< ] Syste Sy eS < fe te sy gs << he 


}) = (23: 2) and it acts transitively on {< t) >,< ta >,<t3 >,< ta >,< ts >,< te >,< 


t7 >,< tg >}. A presentation of the progenitor Dag 


G<a,b,c,d,t>:=Group<a,b,c,d,t/a4,b74,c°2,d°2, 


(2? 2 2\ 48 


((a~-2)*c), ((b7-1) * (a2) * (6 ~-1)), ((a~-1) * (0 °-1) #a* (b°-1)), 
(d* (b~-1) *(a~-1) *d*(b7-1)), ((a°-1) *d) “2, t 2, (t, d¥a)>; 


Table 10.4: Some Finite Homomorphism Image of 2*° : (23 : 2) 
f 7/j|k | | mn | Order of G Hough Shape of G 
0 0;3/0 |0]0 | 7 | 21504 : o(PGL(2,7)) 
0 0;4/0 |8]0 | 6 | 1290240 4 e (PGL(3, 4) x 2) 
0 0/6/0 | 7/0 | 5 | 161280 2? e PGL(3, 4) 
0 0|6]10]0)0 | 4 | 115200 2? e ((As x As) @ 2°) 
10.5 The Group /; 
Example 10.6. J; is a homomorphic image of the progenitor or . (10.22 )c 


We know that, J, is generated by 19 elements of order 2. Then 


J = (t1, ta, tz, ta, ts, te, tz, tg, tg, t1o, t11, tra, t13, t14, t15, t16, t17, tig, tig) - 
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Now: N= Normatizer (G.4<. Ss< to > Se oe te OS oy iG a Se eS 


»<to >< tig >< ty >< tig >, < t13 >, < tia >, < t15 >< tie >, < ti7 >, < tig >< 


tig >}) & (19 : 2) 


=o. (19 : 2) acts transitively on {< t1 >,< tg >,< t3 >,< tg >,< ts >,< tg >< 


t7 >< tg >< to >,< tio >< ti >< hie >, < t13 >, < tig >, < f15 >, < tie >, < ti7 > 


,< tig >,< tig >}. A presentation of the progenitor oo (19 : 2) ts given by 


G<a,b, t>:=Group<a,b,t/a°2,b°-19, ((b*-1) *a) “2, t “2, (t,a)>; 


10.6 The Group J, 


Example 10.7. Jo is a homomorphic image of the progenitor a 


We know that, Jo generated by 6 elements of order 2. Let 


t1 = (2, 26)(3, 59)(5, 93)(6, 28)(7, 90)(8, 75)(9, 18) (11, 30) (14, 39) (15 


( ) 
56)(16, 49) (17, 78)(19, 21)(22, 44) (23, 62)(24, 81) (25, 95)(29, 92)(31, 
89) (33, 76) (34, 65)(35, 50) (36, 94) (37, 98) (40, 85) (42, 67)(43, 52)(45, 
47)(46, 61) (48, 58)(51, 79) (53, 57) (54, 91)(60, 72) (63, 84) (68, 87)(70, 
74)(71, 97)(73, 96)(77, 82), 
ty = (1,17)(2, 94)(3, 92)(4, 71)(5, 56) (6, 90)(7, 80) (8, 41) 
36) (13, 53) (15, 64)(18, 20) (21, 75) (23, 38) (24, 63) (27, 34) (29, 86) (30 
78) (31, 51)(32, 89) (35, 65) (37, 99)(40, 100) (42, 96) (43, 66) (44, a6 
)( ( ( 


) 
97)(47, 82) (48, 95) (49, 57)(52, 60) (55, 77)(62, 91)(68, 88) (69, yr. 


(9, 39) (10, 25)(12 


22 x3) + 


2). 
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98) (76, 87)(83, 84), 
tz = (1, 47)(2, 12)(3, 11) (4, 64)(5, 79) (6, 65)(8, 52) (9, 46 
31)(15, 16) (18, 57) (19, 63) (22, 35) (23, 34) (24, 98) (25, 6 
76) (29, 77) (30, 87) (33, 62) (36, 67) (37, 56) (38, 58) (43, 93 
80) (49, 81) (50, 82) (51, 75) (53, 72) (54, 55) (59, 95) (60, 61 
96) (74, 97)(91, 100), 
ta = (1, 14)(8, 92)(4, 21) (6, 41)(7, 100) (8, 12)(9, 99) (10, 73) (11, 27) (13 
94) (15, 82)(17, 93) (18, 79) (19, 22) (20, 50) (24, 86) (25, 98) (26, 61) (28, 
72) (30, 70) (32, 77) (34, 58) (35, 42) (36, 87) (37, 64) (38, 85) (39, 47) (40 
57) (43, 62) (46, 80) (49, 97) (52, 88) (55, 65) (59, 83) (66, 71) (69, 78) (75, 
91)(76, 90)(81, 84) (89, 96), 
ts = (1, 40)(3, 42)(4, 33) (6, 39)(7, 16) (8, 81) (9, 23) (10, 92) (11, 74) (12, 
37) (13, 18) (15, 82) (17, 52) (19, 80) (20, 75) (21, 48) (22, 93) (25, 83) (26, 
79) (27, 56) (28, 86) (29, 54) (31, 60) (32, 70) (35, 85) (36, 65) (38, 73) (41, 
) ) ) ) 
) 
(5, 
) 
) 
) 
) 


10, 45)(13, 32)(14 
8)(26, 69) (28, 
44, 92)(48, 
66, 83) (73, 


dC 
)( 
) dC 
) )( 


a Oe 


( ( 

)( )( (29 

59)(44, 99) (46, 88) (47, 98)(51, 100) (53, 95)(55, 78) (61, 71) (64, 89) (66, 

94) (69, 90) (76, 87)(84, 96), 

t¢ = (2, 92)(3, 14)(5, 41) (6, 65)(10, 88) (11, 96) (12, 49) (13, 93) (15, 23) (16, 
69)(17, 53) (19, 91)(20, 42) (21, 78) (22, 68) (24, 82) (26, 30) (28, 44)(29, 

73)(31, 77 33, 89) (34, 87) (37, 98)(39, 62) (40, 79) (43, 74) (45 

90) (48, 97 51, 58)(54, 57)(56, 59) (60, 66) (61, 63) (64, 67)(71, 

85)(72, 9 83, 100). 


32, 80 
50, 95 
76, 81 


Se ee 


( 
( 
( 
( 


Then J = (ti, ta; b3; tay $5, t6)- 
Now N = Normalizer (G,{< ty >< to >.< 13. >,< 14 >) < ty >< tg >}) = (2% 8) 22) 
and it acts transitively on {< ty >,< te >,<t3 >,< ta >,< ts >,< te >}. A presenta- 


tion of the progenitor or ((2 x 3) : 2) is given by 


G<a,b,c, t>:=Group<a,b,c,t/a°2,b°2,c73, (atb) “2, (a*(c~-1)) “2, 
(b*(c~-1) *b¥*c), t°2, (t, a*b)>; 


Example 10.8. Jy is a homomorphic image of the progenitor hae (2 x3) £2): 
We know that, Jo is generated by 12 elements of order 2. Let 
t, = (2,94)(3, 17)(4, 37)(5, 89) (6, 27)(7, 76) (8, 83)(10, 29) (13, 14)(15, 


Table 10.5: Some Finite Homomorphism Image of 2*° : ((2 x 3) : 


h}i k|l Order of G | Rough Shape of G 


0 | 13680 2: PGL(2, 19) 

8 | 322560 (2? PSEG;4)) 42 
6 | 737280 210 : eS 

10 | 483840 (2 x $3) e PGL(3, 4) 
7 | 10080 2: Sr 


ooooo lt}! 
oooo ols. 
j=) 


ooocooo 
Lr OO OO 
De oro PIS. 
Hm GW CO Ot Ol 


16, 43 
31,57 
47, 78)(48, 90 
67, 69)(77, 95 
to = (1, 10)(3, 87) 
89)(15, 81) (16, 37 
30) (28, 62) (29, 50 
79) (44, 77)(46, 57 
94)(70, 97) (71, 74 
ts = (1,98) (2, 55) 
77)(16, 58)(17, 43 
46) (34, 36) (35, 45 
60) (51, 78) (52, 79 
82)(84, 91) (86, 96), 
ta74) (12, 35)(13, 48)(15, 82)(16, 80)(17, 100)(18, 21)(20, 53)(22, 93)(23, 
69) (26, 79) (28, 29)(30, 77)(31, 40)(38, 71)(36, 99)(37, 85)(38, 39) (41, 
81) (42, 83) (44, 65)(47, 64)(51, 52)(54, 86)(68, 97)(70, 82)(75, 95) (76, 
87) (89, 98)(92, 96), 
ts = (1, 2)(3, 17)(4, 52) (5, 84)(6, 83) (8, 77)(10, 15 
30)(18, 48) (19, 88) (20, 49) (21, 22)(23, 43) (24, 26) 
39) (29, 64) (32, 34)(33, 42) (38, 47)(41, 46) (45, 87) 
100) (55, 97)(56, 90)(57, 95) (59, 80)(60, 69)(61, 98 
( ( 


18, 32 
33, 58 


“—— 


19, 66) (20, 46) (23, 82) (24, 99) (25, 62) (26, 73) (30, 
34, 55)(35, 40) (36, 96)(38, 68) (41, 51) (44, 86)(45, 
49, 84)(50, 54) (52, 63)(53, 93)(56, 97) (60, 71) (64, 
85,91), 

, 75) (6, 23)(7, 90)(8, 93) (9, 60) (11, 95) (12, 69) (14, 
17, 78) (18, 72)(19, 84) (21, 63) (22, 82) (24, 56) (25, 
31, 39)(33, 34) (35, 92)(36, 42)(38, 80) (40, 85)(43, 
49, 98)(51, 52) (53, 61)(55, 100)(59, 68) (65, 76) (67, 
73, 96), 

3, 20)(5, 66)(6, 10)(7, 13)(8, 83) (9, 80) (12, 31)(14, 54) (15, 
21, 69) (22, 65) (23, 49) (24, 53) (27, 30) (29, 38) (33, 
39, 63)(41, 95) (42, 57)(44, 94)(47, 72) (48, 62)(50, 
56, 70)(61, 97) (64, 85) (67, 81) (68, 88)(71, 76)(74, 


YS > WH wH 
OV GR Ae ee 


~~ aT 


—_~~ > 


) 
) 


Sat Se NS ee OES SSS eS Se ae 


(12, 58) (13, 93 
25, 86) (27, 31) 
50, 65)(51, 89) 
(66, 82) (67, 99 


(16, 
28, 
04, 
(71, 


YS a oar a 
SN oS, Ne 


73) (72, 85) (74, 91)(92, 94), 

tg = (1,35) (2, 73)(3, 80) (4, 49)(5, 83) (6, 11)(7, 34) (8, 39)(9, 24) (12, 36)(13, 
31)(14, 61) (15, 99)(17, 68) (18, 70) (19, 79) (20, 53) (21, 37)(22, 30) (26, 

42) (27, 62) (28, 44) (29, 40) (32, 60) (41, 43)(45, 78) (46, 75) (47, 87) (48, 


—_~ — 


2) 
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(11, 15)(14, 29)(16, 
(30, 56)(31, 
(43, 52) (45, 
) 


~~" 
——~ 
= 
NI 
1) 
D 
~~ 
Ory. 
—_ 
© 
iw) 
ies) 
—— 
i) 
le 
mD 
iw) 
Sacer” 
Fee 8 
iw) 
oe 
Ko) 
Ol 
Ee os 
— 
iw) 
oO 
ie) 
pay 
~~ 
| ie 
i) 
~] 
w 
iw) 
~" 
—~ —™~n~ Ww 
iw) 
ie) 
ie) 
ie 


ty = (2,88)(4,37)(5, 4 ate. 55)(7,51)(9, 80)(10, 96) (11, 92)(12, 52)(13, 
4A) 
90) 
76) 


(29, 94) 
(57,79) 
( 


Ti Wa 67)(6, 65) (8, 52)(9, 46) (11, 29) (12, 76)(13, 
16, 30) (17, 99) (18, 54)(19, 83) (22, 25) (23, 69) (24, 
( 2, 97)(35, 68) (36, 64)(37, 82) (38, 51)(39, 89)(40, 
(43, 48) (44, 81) (49, 92)(50, 56) (55, 57)(58, 75)(59, 98) (60, 100)(61, 
(63, 66) (80, 93) (88, 90), 
tir = (1, 95)(3, 18)(4, 6)(5, 34)(7, 37)(10, 17) (11, 78) (12, 16)(13, 42) (15, 
86)(19, 35) (20, 60)(21, 83) (22, 94) (24, 72) (25, 48) (26, 46) (27, 76)(28, 
82) (29, 32) (31, 75)(33, 39) (38, 61)(40, 53)(41, 59) (44, 99) (45, 49) (51, 
84) (52, 92) (54, 70)(55, 74)(56, 87) (62, 67) (64, 89) (66, 93)(69, 90)(71, 
( ) 


3, 
r4)(14,96)(18, 87) (16 
)(26, 34)(31, 73) (3 
) ) 
) ) 


) dC 
) dC 
) dC 
73) (79, 88)(80, 85) (96, 100), 
tiz = (1, 10)(2, 7)(3, 63)(5, 9) (6, 53)(8, 60) (11, 30) (14, 39) (16, 94) (17, 58) (18 
) 
) 
) 
). 


57 
96 
75 


) ) ) ) 
93)(19, 87) (20, 64)(21, 68) (22, 97) (23, 46) (24, 81) (26, 90) (27, 32) (28, 
( (40, 91)(43, 76) (44, 71)(45, 
(48, 78) (51, 65) (54, 85)(59, 84) (61, 62)(67, 98)(70, 77) (72, 
(83, 86 


) 
(33, 52) (34, 79) (35, 50)(36, 49) (37, 42) 
(47,73) ) 
( ) 


) 
) 
) 
)(74, 82 
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ThenJg = (ty, ta, ts, ta, ts, te, t7, tg, to, tio, tir, t12)- 

Now N = Normalizer (G,{< t1 >,< te >,<t3 >,<t4>,<t5 >,< tg >,< ty >,<tg > 
,< ty >.< to >, < ty >, < tr >}) & ((2? x3) : 2) and it acts transitively on {< ty >, < 
gS 2uS ek SSeS Si Sek Sig S, 2 he SS iS i 
presentation of the progenitor on? ((2? x 3) : 2) is given by 


G<a,b,c,d,t>:=Group<a,b,c,d,t/b~3,c°2, ((a~-2) *(d~-1)), 
(b* (a2) *(d7-1)), ((a~-1) *c) “2, t 2, (t, akc)>; 


Table 10.6: Some Finite Homomorphism Image of 2*"” : ((22 x 3) : 2) 


e€ 1|mjinjot}p|q | Order of G | Rough Shape of G 

0 0}0 |}0)3]41|6 | 3542880 OX PGhGA121)) 22 

0 0;0 }3)/0]41]8 | 172032 2° : ePGL(2,7) 

0 0|0 |3)0) 4 | 10 | 1488000 2 PGL(3,5) 

0 0|0 |3)5]0 | 10 | 322560 322560 

0 0|0 |}6)3]6{|6 | 6298560 6298560 

0 0}3 |}0)6]0|4 | 31457280 31457280 

0 0}|3 |}0)7)]4{|0 | 9596496 (133 x 2) : e(PGL(2, 13)) 
0 0}|5 |4)/0]51|5 | 983040 983040 
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Appendix A 


MAGMA Code for DCE of L»(8) 
Over 2° 


S:=Sym(4); 

we:=S!(1,2) (3,4); 

yy:=8!(1,3) (2,4); 

N:=sub<S/ax, yy>; 

G<a,y, t>:=Group<z,y,t/x°2,y 2, (2, y), t°2, (wey*a*t) “7, 
(x2xt) “9, (wky*t) “3>; 
f,G1,k:=CosetAction(G, sub<G/z, y>) ; 

#G1, #k; 

CompositionFactors (G1); 

#sub<G/ax,y>; 

#DoubleCosets(G, sub<G/z, y>, sub<G/az,y>); 
IsSimple (G1); 

IsTransitive(N) ; 


DoubleCosets (G, sub<G/ax,y>, sub<G/z, y>); 


Sch:=SchretierSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(N): 4 in [1..504]]; 

for « in [2..504] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Schli]] do 

tf Eltseq(Sch[i]) [7] eq 1 then Plj]:=ax; end if; 
tf Eltsegq(SchliJ) [7] eq 2 then Plj]:=yy; end if; 
end for; 

PP:=Id(N); 

for k in [1..#P] do 
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PP:=PP*P[k]; end for; 

ArrayP[%i] :=PP; 

end for; 
ts:=[f(t), f(ta), f(t-y), f(t" (ary) I; 
IN: =sub<G1/f (2), f(y); 

prodim := function(pt, Q, D 

/* 

Return the image of pt under permutations Q[I] applied sequentially. 
*/ 

uv := pt; 

for 7 in I do 

v := u(Qlts); 

end for; 

return v; 

end function; 


per2sym := function(G1,N, p) 

ww := cstl1~p]; 

tt := p * &«*[(Gi/ts[wwlf#ww - 1 + tJ]: lin [1 .. Awol; 
zz := Nifreptj: 7 in [1..4] | (1°tsli]) “tt eq 1°ts[Z]}: 

4 in [1..4]]; return <zz, wu; 

end function; 

est := [null : 4 in [1 ..126]] where null is [Integers() | J]; 
for 7 :=1 to 4 do 

estlprodim(1, ts, [4])] := [4]; 

end for; 
m:=0; 
for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
N1:=Stabiliser(N, 1); 
Orbits (N1); 
#N1; 
S7=t (1,217; 
SS:=S°N; 
SS; 
SSS:=Setseq (SS) ; 
for « in [1..#SS] do 
for g in IN do if ts[1]*ts[2] eq g*ts[Rep(SSS[t]) [1]] 
*ts[Rep(SSS[i]) [2]] then print SSS[i]; end if; end for; 

end for; 
N12:=Stabiliser(N, [1,2]); 
#N12; 
Orbits (N12); 
#SSS ; 


T12:=Transversal (N, N12) ; 

for « in [1..#T12] do 

ss:=[1,2]°T12[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T12] do [1,2]°T12[i]; end for; 
Z:=¢[1,3]}; 

22Z:=Z°N; 

22; 

22Z:=Setseq (ZZ) ; 

for 4 in [1..#ZZ] do 

for g in IN do if ts[1]*ts[3] eq g*ts[Rep(ZZZ[%]) [1]] 
*ts[Rep(ZZZ[i]) [2]] then print ZZZ[i]; end if; end for; 
end for; 

N13:=Stabiliser(N, [1,3]); 

N13; 

Orbits (N13); 

#N13; 

#ZZZ; 

T13:=Transversal (N, N13); 

for « in [1..#T13] do 

ss:=[1,3]°T13[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; 
end for; m; 

for «@ in [1..#T13] do [1,3]°T13[i]; end for; 
8:=([1,2;4)); 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 


for g in IN do if ts[1]*ts[2]*ts[4] eq g*ts[Rep(SSS[iJ) [1]] 


*ts [Rep (SSS[i]) [2] ]*ts [Rep (SSS[iJ)[3]] then print SSS[i]; 
end if; end for; end for; 

N124:=Stabiliser(N, [1,2,4]); 

#N124; 

Orbits (N124); 

#SSS; 
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T124:=Transversal (N,N124); 

for 4 in [1..#T124] do 

ss:=[1,2,4]°T124[t]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ in [1..#T124] do [1,2,4] “T124[i]; end for; 
Sc=t(t,2,117; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[1] eq g*ts[Rep(SSS[t]) [1]] 
*ts [Rep (SSS[i]) [2] ]*ts [Rep (SSS[iJ)[3]] then print SSS[i]; 
end if; end for; end for; 

N121:=Stabiliser(W, [1,2,1]); 

#N121; 

Orbits (N121); 

#SSS; 

T121:=Transversal (N,N121) ; 

for « in [1..#T121] do 

ss:=[1,2,1]°T121[t]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ in (1..#T121] do [1,2,1]°T121[i]; end for; 

Z2={[1, 334) +> 

22:=Z°N; 

22; 

22Z:=Setseq (ZZ); 

for 4 in [1..#ZZ] do 

for g in IN do if ts[1]*ts[3]*ts[4] eq g*ts[Rep(ZZZ[i]) [1] ] 
*ts [Rep (ZZZ[i]) [2] ]*ts [Rep (ZZZ[i])[3]] then print ZZZ[%]; 
end if; end for; end for; 

N134:=Stabiliser(N, [1,3,4]); 

N134; 

Orbits (N134) ; 

#ZLZZ; 

T134:=Transversal (N, N134) ; 

for « in [1..#T134] do 
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ss:=[1,3,4] -T134[t]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ in [1..#T134] do [1,3,4]°T134[i]; end for; 
22/1334}; 

22Z:=Z°N; 

22; 

Z22ZZ:=Setseq (ZZ) ; 

for 4 in [1..#ZZ] do 

for g in IN do if ts[1]*ts[3]*ts[1] eq g*ts[Rep(ZZZ[i]) [1]] 
*ts [Rep (Z2ZZ[i]) [2] ]*ts [Rep (ZZZ[1]) [3] then print Z2Z[i]; 
end if; end for; end for; 

N131:=Stabiliser(W, [1,3,1]); 

N131; 

Orbits (N131); 

#ZLZZ; 

T131:=Transversal (N,N131); 

for « in [1..#T131] do 

ss:=[1,3,1]°T131[t]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for @ in (1..#T131] do [1,3,1]°T131[i]; end for; 
S:=11,2,4,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for «~ in [1..#SS] do 

for g in IN do if tsl[1]*ts[2]*ts[4{]*ts[2] eq g*ts[Rep(SSS[iJ) [1]] 
*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] *ts [Rep (SSS [i] ) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1242:=Stabiliser(N, [1,2,4,2]); 

#N1242; 

for g in N do tf 17g eq 3 and 279 eq 4 and 47g eq 2 and 
2°g eq 4 then N1242:=sub<N/N1242,g>; end if; end for; 
Orbits (N1242); 

[1,2,4,2] -N1242; 

#N1242; 

T1242:=Transversal (N,N1242) ; 
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for 4 in [1..#T1242] do 

ss:=[1,2,4,2] °T1242[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ in [1..#T1242] do [1,2,4,2]-T1242[i]; end for; 
S:=1[1,2,4,3]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if tsl[1]*ts[2]*ts[4{]*ts[3] eq g*ts[Rep(SSS[iJ) [1]] 
*ts [Rep (SSS[t]) [2] ]*ts [Rep (SSS[i]) [3] ] *ts [Rep (SSS[%]) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1243:=Stabiliser(N, [1,2,4,3]); 

#N1243; 

Orbits (N1243); 

#SSS; 

T1243:=Transversal (N,N1243) ; 

for «4 in [1..#T1243] do 

ss:=[1,2,4,3] °T1243[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ in [1..#T1243] do [1,2,4,3]°T1243[i]; end for; 
S:={[1,2,1,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[2] eq g*ts[Rep(SSS[iJ) [1]] 
*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] *ts [Rep (SSS [iJ ) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1212:=Stabiliser(N, [1,2,1,2]); 

#N1212; 

Orbits (N1212) ; 

#SSS; 

T1212:=Transversal (N,N1212) ; 

for « in [1..#T1212] do 

ss:=[1,2,1,2]°T1212[%]; 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for « in [1..#T1212] do [1,2,1,2]°T1212[i]; end for; 
S:={[1,2,1,813; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for «~ in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[3] eq g*ts[Rep(SSS[iJ) [1]] 
*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] *ts [Rep (SSS [i] ) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1213:=Stabiliser(N, [1,2,1,3]); 

#N1213; 

Orbits (N1213) ; 

#SSS; 

T1213:=Transversal (N,N1213) ; 

for « in [1..#T1213] do 

ss:=[1,2,1,3]°T1213[¢]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «4 in [1..126] do tf cst[t] ne [] then m:=mt1; end if; end for; m; 
for «4 in [1..#T1213] do [1,2,1,3]°T1213[i]; end for; 
Z2=¢1,3 54,217 

22:=Z°N; 

22; 

222:=Setseq (ZZ); 

for 4 in [1..#ZZ] do 

for g in IN do if ts[1]*ts[3]*ts[4{]*ts[2] eq g*ts[Rep(ZZZ[iJ) [1]] 
*ts [Rep (ZZZ[i]) [2] ] *ts [Rep (ZZZ [4] ) [3] ] *ts [Rep (ZZZ[%]) [4] ] 
then print ZZZ[i]; end if; end for; end for; 
N1342:=Stabiliser(N, [1,3,4,2]); 

N1342; 

Orbits (N1342); 

#N1342; 

#ZZZ; 

T1342:=Transversal (N,N1342) ; 

for «4 in [1..#T1342] do 

ss:=[1,3,4,2] °T1342[i]; 

cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for 4 in [1..#T1342] do [1,3,4,2]°T1342[i]; end for; 
22=1 11,854,317 5 

22Z:=Z°N; 

22; 

22Z:=Setseq (ZZ) ; 

for 4 in [1..#ZZ] do 

for g in IN do if ts[1]*ts[3]*ts[4{]*ts[3] eq g*ts[Rep(ZZZ[iJ) [1]] 
*ts [Rep (ZZZ[i]) [2] ] *ts [Rep (ZZZ [4] ) [3] ] *ts [Rep (ZZZ[%]) [4] ] 
then print ZZZ[i]; end if; end for; end for; 
N1343:=Stabiliser(N, [1,3,4,3]); 

N1343; 

Orbits (N1343); 

#ZLZZ; 

T1343:=Transversal (N,N1343) ; 

for 4 in [1..#T1343] do 

ss:=[1,3,4,3] °T1343[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for 4 in [1..4#T1343] do [1,3,4,3]°T1343[i]; end for; 
Z:={[1,3,1,2]}; 

22:=Z°N; 

22; 

222:=Setseq (ZZ) ; 

for «4 in [1..#ZZ] do 

for g in IN do if ts[1]*ts[3]*ts[1]*ts[2] eq g*ts[Rep(ZZZ[iJ) [1]] 
«ts [Rep (ZZZ[i]) [2] ]*ts [Rep (ZZZ[4]) [3] ] *ts [Rep (ZZZ [4] ) [4] ] 
then print ZZZ[i]; end if; end for; end for; 
N1312:=Stabiliser(N, [1,3,1,2]); 

N1312; 

for g in N do tf 17g eq 4 and 37g eq 2 and 179g eq 4 

and 2°9 eq 3 then N1312:=sub<N/N1312,g>; end if; end for; 
[1,3,1,2]°N1312; 

Orbits (N1312); 

#N1312; 

T1312:=Transversal (N,N1312) ;¥x 

for « in [1..#T1312] do 

ssi=[1,3,1,2] “Tigi2{¢]; 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for « in [1..#T1312] do [1,3,1,2]°T1312[i]; end for; 
S:=¢[1,2,4,3, 413; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[iJ*ts[2]*ts[4{]*ts[3]*ts[4{] eq g 

*ts [Rep (SSS[t]) [1] ]*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[%i]) [5] ] 

then print SSS[i]; end if; end for; end for; 
N12434:=Stabiliser(N, [1,2,4,3,4]); 

#N12434; 

Orbits (N12434) ; 

#SSS; 

T12434:=Transversal (N,N12434) ; 

for 4 in [1..#T12434] do 

ss:=[1,2,4,3,4] “112434 [i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ in [1..#T12434] do [1,2,4,3,4] “T12434 [i]; end for; 
S:=1[1,2,4,3,1]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[4{]*ts[3]*ts[1] eq g 

*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
«ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] 

then print SSS[i]; end if; end for; end for; 
N12431:=Stabiliser(N, [1,2,4,3,1]); 

#N12431; 

Orbits (N12431) ; 

#SSS; 

T12431:=Transversal (N,N12431) ; 

for 4 in [1..#T12431] do 

ssto/1,2.4,.0,1/ Tigjatle); 
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cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ an [1..#T12431] do [1,2,4,3,1]°T12431[i]; end for; 
S:=([1,2,1,2,4]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[2]*ts[4{] eq g 

*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[iJ) [4] ] *ts [Rep (SSS[iJ)[5]] then print SSS[i]; 
end if; end for; end for; 

N12124:=Stabiliser(N, [1,2,1,2,4]); 

#N12124; 

for g in N do tf 17g eq 4 and 279g eq 3 and 179g eq 4 

and 2°g eq 3 and 47g eq 1 then N12124:=sub<N/N12124, g>; 
end if; end for; [1,2,1,2,4]°N12124; 

Orbits (N12124) ; 

#N12124; 

T12124:=Transversal (N, N12124); 

for 4 in [1..#T12124] do 

ss:=[1,2,1,2,4]°T12124 [4]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ in [1..#T12124] do [1,2,1,2,4]°T12124[i]; end for; 
S:=([1,2,1,3,4]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[3]*ts[4{] eq g 

*ts [Rep (SSS[t]) [1] ]*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [i] ) [3] ] 
*ts [Rep (SSS[1]) [4] ] *ts [Rep (SSS[%]) [5] ] 

then print SSS[i]; end if; end for; end for; 
N12134:=Stabiliser(N, [1,2,1,3,4]); 

#N12134; 

Orbits (N12134) ; 

#SSS; 


T12134:=Transversal (Nv, N12134); 
for 4 in [1..#T12134] do 
ss:=[1,2,1,3,4]°T12134 [4]; 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 


for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for 4% in [1..#T12134] do [1,2,1,3,4]°T12134li]; end for; 


S:=¢[1,2,1,3,1] 7; 
SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 
for « in [1..#SS] do 


for g in IN do if ts[1]*ts[2]*ts[1]*ts[3]*ts[1] eq g 

*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[%]) [5] ] 

then print SSS[i]; end if; end for; end for; 
N12131:=Stabiliser(N, [1,2,1,3,1]); 


#N12131; 

Orbits (N12131); 

#SSS; 

T12131:=Transversal (N,N12131); 
for @ in. [1..#T12131] do 
sst=[1501,.38, 17 °Tigisi {7}; 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 


for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ in ([1..#T12131] do [1,2,1,3,1]°T12131[i]; end for; 


Z:={[1,3,4,2,1]}; 
22Z:=Z°N; 

22; 

Z22Z:=Setseq (ZZ) ; 
for 4 in [1..#ZZ] do 


for g in IN do if ts[1]*ts[3]*ts[4]*ts[2]*ts[1] eq g 

*ts [Rep (ZZZ[i]) [1] ] *ts [Rep (2ZZ [4] ) [2] ] *ts [Rep (ZZZ[i]) [3] ] 
*ts [Rep (ZZZ[%1]) [4] ] *ts [Rep (ZZZ[i]) [5] ] 

then print ZZZ[i]; end if; end for; end for; 
N13421:=Stabiliser(N, [1,3,4,2,1]); 


N13421; 
Orbits (N13421) ; 
#N13421; 
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#ZLZZ; 

T13421:=Transversal (N,N13421) ; 

for «4 in [1..#T13421] do 

ssi=[1,9,4,2,4) “Ti8421{7] ; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for «@ én [1..#T13421] do [1,3,4,2,1]°T13421[i]; end for; 
Z:2C(1,3,4,3,4] 7; 

22Z:=Z°N; 

22; 

22Z:=Setseq (ZZ) ; 

for 4 in [1..#ZZ] do 

for g in IN do if ts[1]*ts[3]*ts[4{]*ts[3]*ts[4{] eq g 

*ts [Rep (ZZZ[i]) [1] ] *ts [Rep (ZZZ[i]) [2] ] *ts [Rep (2ZZ [4] ) [3] ] 
*ts [Rep (ZZZ[i]) [4] ] *ts [Rep (ZZZ[i]) [5]] then print ZZZ[4]; 
end if; end for; end for; 

Nidj347=Stabiliser(N, [1,3,24,3,41) 3 

N13434; 

for g in N do tf 1°g eq 2 and 37g eq 4 and 4°79 eq 3 

and 3-9 eq 4 and 4°g eq 3 then N13434:=sub<N/N13434, 9>; 
end if; end for; [1,3,4,3,4] “N13434; 

Orbits (N13434) ; 

#N13434; 

T13434:=Transversal (N,N13434); 

for «4 in [1..#T13434] do 

ss:=[1,3,4,3,4] “T13434 [i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for. @.4m [fs c#TI8434) do. f1,8,4 334) “Tiszeg (iss: end: for; 
Z:={[1,3,4,3,1]}; 

22Z:=Z°N; 

22; 

Z22Z:=Setseq (ZZ) ; 

for 4 in [1..#ZZ] do 

for g in IN do if ts[1]*ts[3]*ts[4{]*ts[3]*ts[1] eq g 

*ts [Rep (ZZZ[i]) [1] ] *ts [Rep (ZZZ[%]) [2] ] *ts [Rep (ZZZ [4] ) [3] ] 
«ts [Rep (ZZZ[%1]) [4] ] *ts [Rep (ZZZ[i]) [5] ] 

then print ZZZ[i]; end if; end for; end for; 


N13431:=Stabiliser(N, [1,3,4,3,1]); 


N13431; 

Orbits (N13431); 

#ZZZ; 

T13431:=Transversal (N,N13431) ; 
for «4 in [1..#T13431] do 
Sssrelt,5,4;00d) “Tiogoiin] ; 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 


for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for « in [1..#T13431] do [1,3,4,3,1]°T13431l[i]; end for; 


Z:=C(1,3;1,2, 11}; 
22:=Z°N; 

22; 

22Z:=Setseq (ZZ) ; 
for 4 in [1..#ZZ] do 


for g in IN do if ts[1]*ts[3]*ts[1]*ts[2]*ts[1] eq g 

*ts [Rep (ZZZ[i]) [1] ] *ts [Rep (ZZZ[i]) [2] ] *ts [Rep (ZZZ [i] ) [3] ] 
«ts [Rep (ZZZ[%1]) [4] ] *ts [Rep (ZZZ[i]) [5] ] 

then print ZZZ[i]; end if; end for; end for; 
N13121:=Stabiliser(N, [1,3,1,2,1]); 


N13121; 

Orbits (N13121) ; 

#N13121; 

#ZZZ; 

T13121:=Transversal (N,N13121) ; 
for « in [1..#T13121] do 
ss:=[1,3,1,2,1] -Tisi21[i]; 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 


for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for @ in [1..#T13121] do [1,3,1,2,1]°T13121[i]; end for; 


Seat l1, 2545385452133 
SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 
for « in [1..#SS] do 


for g in IN do if tsf[i]*ts[2]*ts[4]*ts[3]*ts[4]*ts[2] eq g 
«ts [Rep (SSS[i]) [1] ] *ts [Rep (SSS [i] ) [2] ] *ts [Rep (SSS [+] ) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
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then print SSS[i]; end if; end for; end for; 
N124342:=Stabiliser(N, [1,2,4,3,4,2]); 

#N124342; 

Orbits (N124342) ; 

#SSS; 

T124342:=Transversal (N,N124342) ; 

for 4 in [1..#T124342] do 

ss:=[1,2,4,3,4,2] “T124342[4]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for 4 in [1..#T124342] do [1,2,4,3,4,2] °T124342[4]; end for; 
8:=1[1,2,4,3,4,3]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[4] *ts[3]*ts[4]*ts[3] eq g 
*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
then print SSS[i]; end if; end for; end for; 
N124343:=Stabiliser(N, [1,2,4,3,4,3]); 

#N124343; 

Orbits (N124343) ; 

#SSS; 

T124343:=Transversal (N,N124343) ; 

for 4 in [1..#T124343] do 

ss:=[1,2,4,3,4,3] “T124343[4]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for 4 im [1..#T124343] do [1,2,4,3,4,3] T124343[%]; end for; 
S:={[1,2,4,3,1,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[4{]*ts[3]*ts[1]*ts[2] eq g 
*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 


then print SSS[i]; end if; end for; end for; 


N124312:=Stabiliser(N, [1,2,4,3,1,2]); 
#N124312; 

Orbits (N124312) ; 

#SSS; 

T124312:=Transversal (N,N124312) ; 

for «4 in [1..#T124312] do 
ss:=[1,2,4,3,1,2] “T124312[%]; 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 


for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for « in [1..#T124312] do [1,2,4,3,1,2] °T124312[%]; end for; 


$:={[1,2,4,3,1,3]}; 
SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 
for « in [1..#SS] do 


for g in IN do if ts[1]*ts[2]*ts[4] *ts [3] *ts[1]*ts[3] eq g 
*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
then print SSS[i]; end if; end for; end for; 


N124313:=Stabiliser(N, [1,2,4,3,1,3]); 
#N124313; 

Orbits (N124313) ; 

#SSS ; 

T124313:=Transversal (N,N124313) ; 

for «4 in [1..#T124313] do 
sst=[1,2,4,3,1,3] °TI2Zs313 [4]; 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 


for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for 4% in [1..#T124313] do [1,2,4,3,1,3] °T124313[%]; end for; 


S:={[1,2,1,3,4,2]}; 
SS:=S7°N; 

SS; 

SSS:=Setseq (SS) ; 
for « in [1..#SS] do 


for g in IN do if ts[1]*ts[2]*ts[1]*ts[3]*ts[4{]*ts[2] eq g 
*ts [Rep (SSS[t]) [1] ]*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
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then print SSS[i]; end if; end for; end for; 
N121342:=Stabiliser(N, [1,2,1,3,4,2]); 

#N121342; 

for g in N do tf 17g eq 3 and 27g eq 4 and 17g eq 3 and 

3°g eq 1 and 47g eq 2 and 2°g eq 4 then N121342:=sub<N/N121342, g>; 
end if; end for; 

[1,2,1,3,4,2] “N121342; 

Orbits (N121342) ; 

#N121342; 

T121342:=Transversal (N, N121342) ; 

for i in [1..#T121342] do 

ss:=[1,2,1,3,4,2] °T121342[4]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for 4 in [1..#T121342] do [1,2,1,3,4,2]°T121342[i]; end for; 
8:=([1,2;1;3,4,317; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[1]*ts[3]*ts[4]*ts[3] eq g 
*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
«ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
then print SSS[i]; end if; end for; end for; 
N121343:=Stabiliser(N, [1,2,1,3,4,3]); 

#N121343; 

for g in N do tf 17g eq 3 and 2°79 eq 4 and 17g eq 3 and 

3°g eq 1 and 47g eq 2 and 2g eq 4 then N121342:=sub<N/N121342, g>; 
end if; end for; 

[1,2,1,3,4,3] “N121343; 

Orbits (N121343); 

#N121343; 

T121343:=Transversal (N, N121343); 

for 4 in [1..#T121343] do 

ssi=[1,2,1,3,4,8] “TI2ig¢3a [il ; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for « in [1..#T121343] do [1,2,1,3,4,3]°T121343[%]; end for; 


8:=([1,3,4,2,1,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for «~ in [1..#SS] do 

for g in IN do if ts[1]*ts[3]*ts[4] *ts[2]*ts[1]*ts[2] eq g 
*ts [Rep (SSS[i]) [1] ]*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
then print SSS[i]; end if; end for; end for; 
N134212:=Stabiliser(N, [1,3,4,2,1,2]); 

#N134212; 

for g in N do tf 1°g eq 2 and 37g eq 4 and 47g eq 3 and 
2-9 eq 1 and 179 eq 2 and 2°g eq 1 then 
N134212:=sub<N/N134212,g>; end if; end for; 

[1,3,4,2,1,2] “N134212; 

Orbits (N134212) ; 

#N134212; 

Set (SSS) ; 

T134212:=Transversal (N,N134212) ; 

for « in [1..#T134212] do 

ss:=[1,3,4,2,1,2]-T134212[%]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 


for 4 in [1..126] do tf cst[i] ne [] then m:=mt1; end if; end for; m; 


for « in [1..#T134212] do [1,3,4,2,1,2]°T134212[%]; end for; 
S13 54,251,313 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[3]*ts[4] *ts[2]*ts[1]*ts[3] eq g 
*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
then print SSS[i]; end if; end for; end for; 
N134213:=Stabiliser(N, [1,3,4,2,1,3]); 

#N134213; 

Orbits (N134213) ; 

#SSS; 

T134213:=Transversal (N,N134213) ; 

for « in [1..#T134213] do 

ssiaf1 354 2,159) Tigsereie 

cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for « in [1..#T134213] do [1,3,4,2,1,3]°T134213[%]; end for; 
$:={[1,3,4,3,1,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[3]*ts[4{]*ts[3]*ts[1]*ts[2] eq g 
*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
then print SSS[i]; end if; end for; end for; 
N134312:=Stabiliser(N, [1,3,4,3,1,2]); 

#N134312; 

Orbits (N134312) ; 

#SSS; 

T134312:=Transversal (N,N134312) ; 

for «4 in [1..#T134312] do 

Sss=1t, 354;37152) “T134312 [7] 5 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «4 in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for « in [1..#T134312] do [1,3,4,3,1,2]°T134312[%]; end for; 
S:={[1,2,4,3,4,3,1]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[4] *ts [3] *ts[4]*ts[3]*tsl1] eq g 
*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
*«ts[Rep(SSS[i])[7]] then print SSS[i]; end if; end for; end for; 
N1243431:=Stabiliser(N, [1,2,4,3,4,3,1]); 

#N1243431; 

Orbits (N1243431) ; 

#SSS; 

T1243431:=Transversal (N,N1243431); 

for 4 in [1..#T1243431] do 

ss:=[1,2,4,3,4,3,1] “11243431 [i]; 

cst[prodim(1, ts, ss)] := ss; 
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end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for tin. [1 #TI2Z13431) “de: 11, 2;4,3,4,8,4) “Ti2sa431 [4] ; -end- for; 
$:={[1,2,4,3,4,2,1]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[4{] *ts [3] *ts[4]*ts[2]*ts[1] eq 
g*ts [Rep (SSS[i]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[4]) [3]] 

*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
*ts[Rep(SSS[i])[7]] then print SSS[i]; end if; end for; end for; 
N1243421:=Stabiliser(N, [1,2,4,3,4,2,1]); 

#N1243421; 

for g in N do tf 1°g eq 2 and 2°79 eq 1 and 47g eq 3 and 

37g eq 4 and 4°9 eq 3 and 27g eq 1 and 1°g eq 2 then 
N1243421:=sub<N/N1243421,9>; end if; end for; 

for g in N do tf 17g eq 3 and 27g eq 4 and 47g eq 2 and 

37g eq 1 and 4°79 eq 2 and 2°g eq 4 and 17g eq 3 then 
N1243421:=sub<N/N1243421,9>; end if; end for; 

for g in N do tf 17g eq 4 and 2°79 eq 3 and 47g eq 1 and 

37g eq 2 and 4°79 eq 1 and 27g eq 3 and 17g eq 4 then 
N1243421:=sub<N/N1243421,9>; end if; end for; 

[1,2,4,3,4,2,1] “N1243421; 

Orbits (N1243421); 

#N1243421; 

T1243421:=Transversal (N,N1243421) ; 

for « in [1..#T1243421] do 

ss:=[1,2,4,3,4,2,1] °T1243421 [1]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «4 in [1..126] do if cst[t] ne [] then m:=mt1; end if; end for; m; 
for @ in [1..#T1243421] do [1,2,4,3,4,2,1]°T1243421[i]; end for; 
$:={[1,2,4,3,1,2,4]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[4{] *ts [3] *ts[1]*ts[2]*ts[4] eq 
g*ts [Rep (SSS[i]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [i] ) [3] ] 
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*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
*ts[Rep(SSS[i])[7]] then print SSS[i]; end if; end for; end for; 
N1243124:=Stabiliser(N, [1,2,4,3,1,2,4]); 

#N1243124; 

Orbits (N1243124) ; 

#SSS; 

T1243124:=Transversal (N,N1243124) ; 

for 4 in [1..#T1243124] do 

ssi=[1,2,4,93;1;2,4) Ti2sgi24 [4]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..126] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for 4% in [1..#T1243124] do [1,2,4,3,1,2,4]°T1243124[%]; end for; 
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Appendix B 


MAGMA Code for DCE of L»(13) 
Over M and N 


/*First, we want to factor the group by the Maximal Subgroup 
to find simple group*/ 

S:=Sym(4); 

wx:=S!(1,2) (3,4); 

yy:=8!(1,3) (2,4); 

N:=sub<S/ax, yy>; 

G<a,y, t>:=Group<z,y,t/x°2,y 2, (2, y), t 2, (4wxy*art) “7, (2¥t) “3, 
(xxy*t) “13>; 

f,G1,k:=CosetAction(G, sub<G/z, y>) ; 

#G1, #k; 

CompositionFactors (G1); 

IsSimple (G1); 

M:=MaximalSubgroups (G1); 

M; 

/*We look after f(x) and f(y) in one Maximal Subgroup*/ 

for 7 in [1..4] do 

C:=Conjugates(G1,M[j] ‘subgroup) ; 

CC: =SetToSequence(C) ; 

for i in [1..#CC] do if f(a) in CC[ti] and f(y) in CC[i] then 7,1; 
end if; end for; end for; 

CompositionFactors (M[2] ‘subgroup) ; 

CompositionFactors (M[3] ‘subgroup) ; 

C:=Conjugates(G1,M[2] ‘subgroup) ; 

CC: =SetToSequence(C) ; 

for « in [1..#CC] do if f(a) in CCli] and f(y) in CCli] then i; 
end if; end for; 
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H:=sub<G1/CC[32]>; 

#H; 

c:=Classes (G1); 

cl2] [1]; 

cel3] [1]; 

for g tin Class(G1,c[2][3]) do if sub<Gi/f(a),f(y),9g> eq H then gg:=9; 

end if; end for; 

99; 

/*After we find the f(x), f(y), and the new relation which factor the 
group from the Maximal subgroup, we will use the Background in Magma 
to know which ts this element call*/ 

99:=G1!(1, 269) (2, 244)(3, 200) (4, 201) (5, 249) (6, 165) (7, 255) 

(8, 120)(9, 121)(10, 185)(11, 186) (12, 171) (13, 96) (14, 260) 
(15, 152) (16, 194) (17, 92) (18, 88)(19, 258) (20, 70) (21, 71) 
(22, 265) (23, 267) (24, 102) (25, 253) (26, 254) (27, 158) (28, 53) 
(29, 256)(30, 239)(31, 179) (32, 196)(33, 191)(34, 114) (35, 59) 
(36, 168) (37, 77) (38, 78) (39, 245) (40, 246) (43, 203) (44, 202) 

(45, 211) (46, 212) (47, 175) (49, 155) (50, 233) (51, 232) (52, 224) 
(54, 166) (55, 222) (56, 116) (57, 132) (58, 105) (60, 136) (61, 137) 
(62, 181) (63, 208) (66, 99) (67, 125) (68, 126) (69, 251) (72, 123) 
(73, 122) (74, 107) (75, 84) (76, 217) (79, 157) (80, 187) (81, 193) 
(82, 225) (83, 159)(85, 145) (86, 144) (87, 180) (89, 153) (90, 264) 
(91, 174) (93, 220) (94, 219)(95, 209) (98,177) (100, 143) (101,127) 
(103, 240)(104, 188) (106, 115) (108, 160)(109, 161)(110, 111) 

(112, 154)(113, 129)(117, 205) (118, 206)(119, 263) (124, 142) 
(128, 147) (130, 164) (131, 204) (133, 207) (134, 236) (135, 230) 
(138, 170) (139, 235) (140, 178) (141, 243) (146, 195) (148, 270) 
(149, 173) (150, 238)(151, 189) (156, 231) (162, 262) (163, 271) 
(167, 192) (169, 218) (172, 266) (182, 250) (183, 184) (190, 237) 
(197, 273) (198, 252) (199, 216)(210, 257)(213, 214)(215, 261) 
(221, 272) (223, 228) (226, 248) (227, 241) (229, 268) (234, 259); 

ts:=[f(t) , fA-a), f(t-y, f(t (ery) I; 

IN:=sub<G1/f (2), f(y); 


for 4,7,k,1l,m,n,0,p,q,7,@,0,c,d,e,s,w,z in [0,1] do 

tf 99g eq f (aw ixy~f*t “kx (ta) “1* (ty) “m* (C(t ae) Wy) “nt “0* (t “2 “p 
* (ty) “g* C(t a) “y) “ret “a (ta) ~b* (ty) “c# (C(t a) “y) “d¥t “ex 
(t°a) “s*(t“y) “wx (ta) “y) “z) then 1,7,k,1l,m,n,0,7,9,7,4,0, 
c,d,e,s,w,z; end 1f; end for; 
011010011010011010 
011010011010110i111 
01101001101011d11d10 


99 eg f (y*t* (ty) * (ta) (ty) *t*( (ta) “y) *t*(t-y)); 


M:=sub<G/ax,y, y*t*(t “y) * (tw) * (ty) #E* C(t a) “y) #t* (ty); 
#M; 

f.M1,k:=CosetAction(G,M); 

#M1; #k; 

#DoubLeCosets(G,M, sub<G/az, y>); 

IsSimple(G1); 

IsTransitive (G1); 

IsPrimitive (G1); 

CompositionFactors (M1); 


/*We will state to prove the DCE*/ 
(DCE of (G,M,sub<G/az, y>)) 


S:=Sym(4); 

wx:=S!(1,2) (3,4); 

yy:=8!(1,3) (2,4); 

N:=sub<S/az, yy>; 

G<a,y, t>:=Group<z,y,t/x°2,y 2, (x,y), t 2, (wxy*art) ~7, (2¥t) “3, 
(axy*t) “13>; 

f,G1,k:=CosetAction(G, sub<G/z, y>) ; 

#G1, #k; 

CompositionFactors (G1); 

tsta[f (it), f OC maf ws Gay; 

IN:=sub<G1/f (2), f(y); 

M:=sub<G/ax,y, y*t*(t “y) * (tw) * (ty) #E* (C(t a) “y) #t* (ty); 
#M; 

IM:=sub<G1/f (a), f Cy), f (y*t* (ty) * (ta) * (ty) *t* (ta) “y) *t* (ty) )>; 
f.G1,k:=CosetAction(G,M); 

#G1; #k; 

#DoublLeCosets(G,M, sub<G/a, y>); 

IsSimple(G1); 

IsTransitive (G1); 

IsPrimitive (G1); 

AllPartitions (G1); 


Sch:=SchretierSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(N): 4 in [1..1092]]; 

for «~ in [2..1092] do 

P:=[Td(N): l in [1..#Sch[i]]]; 

for j in [1..#Schlt]] do 

tf Eltseq(Schl[iJ) [7] eq 1 then Plj]:=ax; end if; 
tf Eltseq(Sch[iJ) [7] eq 2 then Plj]:=yy; end if; 
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end for; 

PP:=Id(M); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[i] :=PP; 

end for; 

ts:=[f(t), f(t-a), f(t-y), f(t (ary) I; 

IN: =sub<G1/f (a), f (y)>; 

IM:=sub<G1/f (x), f Cy), f (y*t* (ty) * (ta) * (ty) #t*( (tw) “y) #t¥ (ty) )>; 
prodim := functtion(pt, Q, DD 

/* 

Return the image of pt under permutations Q[I] applied sequentially. 
*/ 

uv := pt; 

for 7 in I do 

v := u(Qlt]); 

end for; 

return v; 

end function; 


per2sym := function(G1,N, p) 
ww := cstl1~p]; 
tt := p * &«*[(Gi/ts[wwlf#ww - 1 + tJ]: lin [1 .. Aw]; 
zz := Nilreptj: gj in [1..4] | (1°tsli]) “tt eq 1°tsl[j]}: 
4 in [1..4]]; return <zz, wu; 
end function; 
est := [null : 4 in [1 ..91]] where null is [IntegersQ) | ]; 
for 7 := 1 to 4 do 
cst[prodim(1, ts, [iJ)] := [4%]; 
end for; 
m:=0; 
for «~ in [1..91] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
N1:=Stabiliser(N,1); 
Orbits(N1); 
#N1; 
S:={/1,3]}; 
SS:=S°N; 
SS; 
SSS:=Setseq (SS) ; 
for « in [1..#SS] do 
for g in IM do if ts[1]*ts[3] eq g*ts[Rep(SSS[i]) [1] ]* 
ts [Rep (SSS[i]) [2]]then print SSS[i]; end if; end for; 
end for; 


N13:=Stabiliser(N, [1,3]); 

#N13; 

Orbits (N13) ; 

#SSS; 

T13:=Transversal (N, N13); 

for « in [1..#T13] do 

ss:=[1,3]°T13[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T13] do [1,3]°T13[i]; end for; 
8:14] 7; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if tsl[1]*ts[4{] eq g*ts[Rep(SSS[i]) [1] ]* 
ts[Rep(SSS[i]) [2]] then print SSS[i]; end if; end for; 
end for; 

N14:=Stabiliser(N, [1,4]); 

#N14; 

Orbits (N14); 

#SSS; 

T14:=Transversal (V,N14); 

for 4 in [1..#T14] do 

ss:=[1,4]°T14[%]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m;for «4 in [1..#T14] do [1,4] °T14[i]; end for; 
S:={[1,3,1]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 


for g in IM do if ts[1]*ts[3]*ts[1] eq g*ts[Rep(SSS[t]) [1]] 


*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[%]) [3] ] 

then print SSS[i]; end if; end for; end for; 
N131:=Stabiliser(N, [1,3,1]); 

#N131; 
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Orbits (W131); 

#SSS; 

T131:=Transversal (N,N131); 

for « in [1..#T131] do 

ss:=[1,3,1]°T131[t]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..91] do if cst[i] ne [] then m:=mt1; end if; 
end for; m; 

for @ in (1..#T131] do [1,3,1]°T131[i]; end for; 
Si={[1,3,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1]*ts[3]*ts[2] eq g*ts[Rep(SSS[t]) [1] ]* 
ts [Rep (SSS[1]) [2] ] *ts [Rep (SSS[%]) [3] ] 

then print SSS[i]; end if; end for; end for; 
N132:=Stabiliser(N, [1,3,2]); 

#N132; 

Orbits (N132) ; 

#SSS; 

T132:=Transversal (N,N132) ; 

for « in [1..#T132] do 

ss:=[1,3,2]°T132[1]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T132] do [1,3,2]°T132[i]; end for; 
hres a ae ee Be 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1]*ts[{]*ts[1] eq g*ts[Rep(SSS[t]) [1] ]* 
ts [Rep (SSS[1]) [2] ] *ts [Rep (SSS[%]) [3] ] 

then print SSS[i]; end if; end for; end for; 
N141:=Stabiliser(N, [1,4,1]); 

#N141; 

Orbits (N141); 
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#SSS; 
T141:=Transversal (N, N141) ; 


for 


t in [1..#T141] do 


ssi=[i,J341) °Tigif7]; 


cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstli] ne [] then m:=mt1; end if; 


end 


for; m; for @ in [1..#T141] do [1,4,1]°T141[i]; end for; 


S:=0[1,4;2]); 
SS:=S"°N; 


SS; 


SSS:=Setseq (SS) ; 


for 
for 


4 in [1..#SS] do 
g in IM do if ts[1]*ts[{]*ts[2] eq g*ts[Rep(SSS[i]) [1] ]* 


ts [Rep (SSS [1] ) [2] ] *ts [Rep (SSS[%]) [3] ] 

then print SSS[i]; end if; end for; end for; 
N142:=Stabiliser(N, [1,4,2]); 

#N142; 

Orbits (N142) ; 

#SSS; 

T142:=Transversal (N, N142) ; 


for 


4 in [1..#T142] do 


ss:=[1,4,2] “T142[4]; 


cst 
end 


[prodim(1, ts, ss)] := ss; 


for; 


m:=0; 


for 
end 


4 in [1..91] do if cstli] ne [] then m:=mt+1; end if; 
for; m; for «4 in [1..#T142] do [1,4,2]°T142[i]; end for; 


Seti aT: 
SS:=S°N; 


SS; 
SSS 
for 
for 


«ts 


:=Setseq (SS) ; 

4 in [1..#SS] do 

g in IM do if ts[1]*ts[3]*ts[1]*ts[4] eq g*ts[Rep(SSS[t]) [1]] 
[Rep (SSS [i]) [2] ] *ts [Rep (SSS [i] ) [3] ] *ts [Rep (SSS[iJ) [4] ] 


then print SSS[i]; end if; end for; end for; 
N1314:=Stabiliser(N, [1,3,1,4]); 
#N1314; 


for 


g in N do tf 1°79 eq 2 and 3°g eq 4 and 1°g eq 2 and 


4°9 eq 3 then N1314:=sub<N/N1314,g>; end if; end for; 
[1,3,1,4]°N1314; 
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Orbits (N1314); 

#N1314; 

T1314:=Transversal (N,N1314); 

for 4 in [1..#T1314] do 

ss:=[1,3,1,4]°T1314[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for @ in [1..#T1314] do [1,3,1,4]°T1314[%]; 
end for; 

/*for 4 in [1..4] do for g in IM do for h in IM do tf ts[1]*ts[3] 
*ts[1]*ts[{]*tsli] eq g*x(ts[1]*ts[4]*ts[1]*ts[4]) “h 
then 21,9,h; break; end if; end for;end for; end for; 

*/ 

S:=tli,3, 2,81}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if tsl[1]*ts[3]*ts[2]*ts[3] eq g*ts[Rep(SSS[iJ) [1]] 
*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] *ts [Rep (SSS[i]) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1323:=Stabiliser(N, [1,3,2,3]); 

#N1323; 

for g in N do tf 17g eq 3 and 37g eq 1 and 27g eq 4 and 
3°g eq 1 then N1323:=sub<N/N1323,9>; end if; end for; 
[1,3,2, 3] “N1323; 

Orbits (N1323) ; 

#N1323; 

T1323:=Transversal (N,N1323) ;5 

for « in [1..#T1323] do 

ss:=[1,3,2,3]°T1323 [4%]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T1323] do [1,3,2,3]°T1323[%]; 
end for; 

S2={l1,3,2,41 73 

SS:=S°N; 

SS; 
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SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1]*ts[3]*ts[2]*ts[4] eq g*ts[Rep(SSSl[iJ) [1]] 
*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] *ts [Rep (SSS [i] ) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1324:=Stabiliser(N, [1,3,2,4]); 

#N1324; 

Orbits (N1324) ; 

#SSS; 

T1324:=Transversal (N,N1324); 

for 4 in [1..#T1324] do 

ss:=[1,3,2,4] “T1324 [4]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T1324] do [1,3,2,4]°T1324 [4]; 
end for; 

SS (1545153) 7; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1]*ts[4{]*ts[1]*ts[3] eq g*ts[Rep(SSS[iJ) [1]] 
*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] *ts [Rep (SSS [i] ) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1413:=Stabiliser(N, [1,4,1,3]); 

#N1413; 

Orbits (N1413); 

#SSS; 

T1413:=Transversal (N, N1413); 

for 4 in [1..#T1413] do 

8s7=[1,4,4, 3] -Tigi3las; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for 4. tm {2t. #ATI4ISS do [1,4 1,8] Tigislas} end for; 


for 4 in [1..4] do for g in IM do for h in IM do if ts[1]*ts[4] 
«ts[1]*ts[3]*tsli] eq g*(ts[1]*ts [4] *ts [1] *ts[3])“h 
then 1,9,h; break; end if; end for;end for; end for; 
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S:={[1,4,1,4]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if tsl[1]*ts[{]*ts[1]*ts[4] eq g*ts[Rep(SSS[iJ) [1]] 
*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] *ts [Rep (SSS [i] ) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1414:=Stabiliser(N, [1,4,1,4]); 

#N1414; 

Orbits (N1414); 

#SSS; 

T1414:=Transversal (N,N1414); 

for 4 in [1..#T1414] do 

Ssialt, 451,32) “Tigi fess 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m;for «@ in [1..#T1414] do [1,4,1,4]°T1414 [4]; 
end for; 

S:=¢(1,4,2,3]F5 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if tsl[1]*ts[4{]*ts[2]*ts[3] eq g*ts[Rep(SSS[iJ) [1]] 
*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[iJ) [3] ] *ts [Rep (SSS [i] ) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1423:=Stabiliser(N, [1,4,2,3]); 

#N1423; 

Orbits (1423) ; 

#SSS; 

T1423 :=Transversal (N,N1423) ; 

for 4 in [1..#T1423] do 

ss:=[1,4,2,3]°T1423[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cst[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T1423] do [1,4,2,3]°T1423 [4%]; 
end for; 
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S=tli je 41 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if tsl[1]*ts[{]*ts[2]*ts[4] eq g*ts[Rep(SSS[iJ) [1]] 
*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] *ts [Rep (SSS[i]) [4] ] 
then print SSS[i]; end if; end for; end for; 
N1424:=Stabiliser(N, [1,4,2,4]); 

#N1424; 

for g in N do tf 1°g eq 3 and 4°79 eq 2 and 2°79 eq 4 

and 4°9 eq 2 then N1424:=sub<N/N1424,9>; end tf; end for; 
[1,4,2,4] “N1424; 

Orbits (N1424); 

#N1424 ; 

T1424:=Transversal (N,N1424); 

for 4 in [1..#T1424] do 

Sst=fl 252.4) figer ay: 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T1424] do [1,4,2,4] “T1424 [4]; 
end for; 

S:=([1,3,2,4,1]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1]*ts[3]*ts[2]*ts[4]*ts[1] eq g 

*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [i] ) [3] ] 
*ts [Rep (SSS[i]) [4] ]*ts [Rep (SSS[iJ)[5]] then print SSS[i]; 
end if; end for; end for; 

N13241:=Stabiliser(N, [1,3,2,4,1]); 

#N13241; 

Orbits (N13241); 

#SSS ; 

T13241:=Transversal (N,N13241); 

for «4 in [1..#T13241] do 

ss:=[1,3,2,4,1] °T13241[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 
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for «~ in [1..91] do if cstli] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T13241] do [1,3,2,4,1] “T13241[%]; 
end for; 

S:={11,3,2,4,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1]*ts[3]*ts[2]*ts[4]*ts[2] eq g 

*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ]*ts [Rep (SSS[iJ)[5]] then print SSS[i]; 
end if; end for; end for; 

N13242:=Stabiliser(N, [1,3,2,4,2]); 

#N13242; 

Orbits (N13242) ; 

#SSS; 

T13242:=Transversal (N, N13242) ; 

for « in [1..#T13242] do 

ss:=[1,3,2,4,2] “Ti32j2[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 


for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T13242] do [1,3,2,4,2] “T13242[%]; 


St=C[1,431;,3,2) 7; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1J*ts[{]*ts[1]*ts[3]*ts[2] eq g 

*ts [Rep (SSS[1]) [1]]* ts[Rep (SSS[i]) [2] ] *ts [Rep (SSS[%J) [3] ] 
*ts [Rep (SSS[i]) [4] ]*ts [Rep (SSS[iJ)[5]] then print SSS[i]; 
end i~f; end for; end for; 

N14132:=Stabiliser(N, [1,4,1,3,2]); 

#N14132; 

for g in N do tf 17g eq 4 and 4°9g eq 1 and 17g eq 4 and 3°g eq 2 
and 2°9 eq 3 then WN14132:=sub<N/N14132,9>; end if; end for; 
[1,4,1,3,2] “N14132; 

Orbits (N14132) ; 

#N14132; 

T14132:=Transversal (N,N14132) ; 
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for 4 in [1..#T14132] do 

ss:=[1,4,1,3,2] “T14132[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do tf cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T14132] do [1,4,1,3,2] “T14132[%]; 
end for; 

S:=([1,4,1,4,1]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if tsf[i]*ts[4]*ts[1]*ts[4{]*ts[1] eq g 

*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ]*ts [Rep (SSS[iJ)[5]] then print SSS[i]; 
end if; end for; end for; 

N14141:=Stabiliser(N, [1,4,1,4,1]); 

#N14141; 

Orbits (N14141); 

#SSS; 

T14141:=Transversal (N,N14141) ; 

for 4 in [1..#T14141] do 

ssteliigsiadeil Tigi gt ley; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T14141] do [1,4,1,4,1] “T14141[%]; 
end for; 

S:=1[1,4,1,4,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1J*ts[{]*ts[1]*ts[4]*ts[2] eq g 

*ts [Rep (SSS[t]) [1] ]*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[iJ)[5]] then print SSS[i]; 
end if; end for; end for; 

N14142:=Stabiliser(N, [1,4,1,4,2]); 

#N14142; 

Orbits (N14142) ; 
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#SSS; 

T14142:=Transversal (N,N14142) ; 

for 4 in [1..#T14142] do 

ss:=[1,4,1,4,2] “T14142[%]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cst[i] ne [] then m:=mt1; end if; 
end for; m; for @ in [1..#T14142] do [1,4,1,4,2] “T14142[1]; 
end for; 

B= 72.3 1s 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1J*ts[{]*ts[2]*ts[3]*ts[1] eq g 

*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[iJ)[5]] then print SSS[i]; 
end ~f; end for; end for; 

N14231:=Stabiliser(N, [1,4,2,3,1]); 

#N14231; 

Orbits (N14231) ; 

#SSS; 

T14231:=Transversal (N,N14231) ; 

for « in [1..#T14231] do 

ssi=[15432,0,4)°Ti4231 fel; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for 4 in [1..#T14231] do [1,4,2,3,1]°T14231[%]; 
end for; 

S:=1[1,4,2,3,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1J*ts[{]*ts[2]*ts[3]*ts[2] eq g 

*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS [i] ) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ]*ts [Rep (SSS[iJ)[5]] then print SSS[i]; 
end if; end for; end for; 

N14232:=Stabiliser(N, [1,4,2,3,2]); 
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#N14232; 
for g in N do tf 17g eq 4 and 47g eq 1 and 27g eq 3 and 37g eq 
2 and 27g eq 3 then N14232:=sub<N/N14232,g9>; end if; end for; 
[1,4,2, 3,2] “14232; 
Orbits (N14232) ; 
#N14232; 
T14232:=Transversal (N,N14232) ; 
for « in [1..#T14232] do 
ss:=[1,4,2,3,2] -T14232[%]; 
cst[prodim(1, ts, ss)] := ss; 
end for; 
m:=0; 
for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T14232] do [1,4,2,3,2] “T14232[%]; 
end for; 
BS =tlis3, 2,441,317; 
SS:=S°N; 
SS; 
SSS:=Setseq (SS) ; 
for « in [1..#SS] do 
for g in IM do if ts[1]*ts[3]*ts[2]*ts[4]*ts[1]*ts[3] eq g 
*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
then print SSS[i]; end if; end for; end for; 
N132413:=Stabiliser(N, [1,3,2,4,1,3]); 
#N132413; 
Orbits (N132413); 
#SSS ; 
T132413:=Transversal (N,N132413) ; 
for « in [1..#T132413] do 
ss:=[1,3,2,4,1,3] “T132413[%]; 
cst[prodim(1, ts, ss)] := ss; 
end for; 
m:=0; 
for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T132413] do 
[1,3,2,4,1,3] °T132413[i]; end for; 
S:={f1,3,2,4,4,41}; 
SS:=S°N; 
SS; 
SSS:=Setseq (SS) ; 
for « in [1..#SS] do 


for g in IM do if ts[1]*ts[3]*ts[2]*ts[4]*ts[1]*ts[4] eq g 
*ts [Rep (SSS[i]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [i] ) [3] ] 
*ts [Rep (SSS[t]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS[%]) [6] ] 
then print SSS[i]; end if; end for; end for; 
N132414:=Stabiliser(N, [1,3,2,4,1,4]); 

#N132414; 

Orbits (N132414); 

#SSS; 

T132414:=Transversal (N,N132414) ; 

for « in [1..#T132414] do 

ss/=[1,3,2,4,1,4] “Tige4i14 [4]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T132414] do 

[1,3,2,4,1,4] “T132414[%]; end for; 

S={1,4,4,4,1,4)35 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for «~ in [1..#SS] do 

for g in IM do if tsfiJ*ts[4]*ts[1]*ts[{]*ts[1]*ts[4] eq g 
*ts [Rep (SSS[t]) [1] ]*ts [Rep (SSS[1]) [2] ] *ts [Rep (SSS [%]) [3] ] 
«ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 
then print SSS[i]; end if; end for; end for; 
N141414:=Stabiliser(N, [1,4,1,4,1,4]); 

#N 141414; 

Orbits (N141414); 

#SSS; 

T141414:=Transversal (N,N141414); 

for 4 in [1..#T141414] do 

ss:=[1,4,1,4,1,4]°T141414 [4]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..91] do tif cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T141414] do 

[1,4,1,4,1,4] °T141414[i]; end for; 

$:={[1,4,1,4,2,4]}; 

SS:=S°N; 

SS; 
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SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if tsfiJ*ts[4]*ts[1]*ts[4{]*ts[2]*ts[4] eq g 

*ts [Rep (SSS[i]) [1] ]*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] 

*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 

then print SSS[i]; end if; end for; end for; 
N141424:=Stabiliser(N, [1,4,1,4,2,4]); 

#N141424; 

for g in N do if 1°g eq 2 and 4°79 eq 3 and 1°9g eq 2 and 47g eq 3 
and 2°g eq 1 and 4°g eq 3 then N141424:=sub<N/N141424, g>; 

end if; end for; 

ft, d545;4, 252) -MIgitg27 3 

Orbits (N141424); 

#N141424; 

T141424:=Transversal (N,N141424) ; 

for « in [1..#T141424] do 

ssrsf154,454 52,4) “Tigi seg ic); 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..91] do if cstl[i] ne [] then m:=mt1; end if; 

end for; m; for «@ in [1..#T141424] do [1,4,1,4,2,4] T141424 [4]; 
end for; 

$:={[1,3,2,4,1,3,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IM do if ts[1]*ts[3]*ts[2] *ts [4] *ts[1]*ts[3]*ts[2] eq g 
*ts [Rep (SSS[i]) [1] ]*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] 

*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 

*ts [Rep (SSS[%]) [7] ] 

then print SSS[i]; end if; end for; end for; 
N1324132:=Stabiliser(N, [1,3,2,4,1,3,2]); 

#N1324132; 

for g in N do tf 17g eq 2 and 37g eq 4 and 2°9 eq 1 and 4°g eq 83 
and 1°g eq 2 and 37g eq 4 and 27g eq 1 then 
N1324132:=sub<N/N1324132,9>; end if; end for; 

for g in N do tf 17g eq 3 and 3°79 eq 1 and 2°g eq 4 and 47g eg 2 
and 1°g eq 3 and 3°g eq 1 and 27g eq 4 then 
N1324132:=sub<N/N1324132,9>; end if; end for; 

for g in N do tf 17g eq 4 and 3°79 eq 2 and 27g eq 3 and 47g eq 1 
and 1°g eq 4 and 3°79 eq 2 and 27g eq 3 then 


N1324132:=sub<N/N1324132,9>; end if; end for; 


fi, 3; 2, A158, 27 1921130: 

Orbits (N1324132) ; 

#N1324132; 

N1324132; 

T1324132:=Transversal (N,N1324132) ; 
for « in [1..#T1324132] do 
ss:=[1,3,2,4,1,3, 2] “T1324132[i]; 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 


for «~ in [1..91] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
for @ in (1..#4T1324132] do [1,3,2,4,1,3,2]-T1324132[%]; end for; 


St=C(12 51,9, 1 23613 
SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for «~ in [1..#SS] do 


for g in IM do if tsfi]*ts[4]*tsl[1]*ts[4{]*ts [1] *ts [4] *ts [2] 
*ts [Rep (SSS[t]) [1] ] *ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS [%]) [3] ] 
*ts [Rep (SSS[i]) [4] ] *ts [Rep (SSS[i]) [5] ] *ts [Rep (SSS [i] ) [6] ] 


«ts [Rep (SSS[i]) [7] ] 


then print SSS[i]; end if; end for; end for; 
N1414142:=Stabiliser(N, [1,4,1,4,1,4,2]); 


#N1414142; 


for g in N do tf 17g eq 2 and 47g eq 3 and 17g eq 2 and 47g 


and 1°g eq 2 and 4°g eq 3 and 27g eq 
N1414142:=sub<N/N1414142,9>; end if; 


for g in N do tf 1°g eq 3 and 4°79 eq 2 and 1°79 eq 3 and 47g 


1 then 
end for; 


and 1°g eq 3 and 4°79 eq 2 and 2°79 eq 4 then 


N1414142:=sub<N/N1414142,9>; end if; 


for g in N do if 1°g eq 4 and 47g eq 1 and 17g eq 4 and 47g 


end for; 


and 1°g eq 4 and 4°g eq 1 and 27g eq 3 then 


N1414142:=sub<N/N1414142, 9>; end if; 
PA tod tod Ol NisiZ 172: 

Orbits (N1414142) ; 

#1414142; 

T1414142:=Transversal (N,N1414142) ; 
for 4 in [1..#T1414142] do 
ssi=[1)4,1,2.0 2,2) Tigigisolt]; 
cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 


end for; 


eq g 


eq 3 


eq 2 


eq 1 
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for «~ in [1..91] do if cst[i] ne [] then m:=mt1; end if; end for; m; 
/*We will find some relations from the single cosets*/ 

for «4 in [1..#T1414142] do [1,4,1,4,1,4,2] “T1414142[%]; end for; 
for 4 in [1..4] do for g in IM do for h in IN do if 
ts[1iJ*ts[3]*tsli] eq g*(tsl[i]*ts[4])“h then %,9,h; break; 

end if; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IN do if 
ts[1]*ts[3]*ts[1]*tsl[i] eq g*(tsl1]*ts[3]*ts[2])“h then i,9,h; 
break; end if; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IN do if 
ts[1]*ts[3]+*ts[1]*ts[4]*ts[i] eq g*(tsl[1]/*ts[3]*ts[1]*ts[4])h 
then 1,9,h; break; end if; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IM do if 
ts[1J*ts[4{]*ts[1]*ts[3]*ts[i] eq g*(tsl[1]*ts[3]*ts[2]*ts[4]*ts[2])“h 
then 1,9,h; break; end if; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IN do if 
ts[1]*ts[4{]*ts[1]*ts[4]*ts[1]*tsli] eq g*(tsl1]*ts[3] *ts [2] *ts [4] 
*ts[1]*ts[4{])“h then i,9,h; break; end if; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IN do if 
ts[1]*ts[4{]*ts[1]*ts[4]*ts[2]*tsli] eq g*(tsl[i]*ts [4] *ts [1] 
*ts[4{]*ts[1])“h then i,9,h; break; end if; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IN do if tsl1]*ts[4]*ts[1] 
xts[{]*ts[2]*tsli] eq g*(ts[i1]*ts[4] *ts [1] *ts[4{]*ts[2]) Ah 


then 21,9,h; break; end if; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IN do if 
tsf1]*ts[4]*ts[1]*ts[4]*ts[1]*ts[4]*tsli] eq g*(tsli]*ts[4]*ts [1] 

*ts[4{]*ts[1]*ts[4])“h then 1,9,h; break; end if; end for;end for; 
end for; 


for 4 in [1..4] do for g in IM do for h in IN do if 
ts[1]*ts[4]*ts[1]*ts[4]*ts[1]*ts[4]*ts[i] eq 
g*(ts[1]*ts[3]*ts[2]*ts[4]*ts[1]*ts[4]) Ah 


then 1,9,h; break; end if; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IN do if 
ts[1]*ts[4{]*ts[2]*ts[3]*ts[1]*ts[i] eq 
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gt (ts[1]*ts [4] *ts [2] *ts[3]*ts[1])-h 
then 1,9,h; break; end tf; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IN do if 
ts[1]*ts[3]*ts[2]*ts[4]*ts[1]*ts[4]*tsli] eq 
g*(ts[iJ*ts[{]*ts[1]*ts[4{]*ts[1])h 


then 1,9,h; break; end if; end for;end for; end for; 


for 4 in [1..4] do for g in IM do for h in IN do if 
ts[1]*ts[3] *ts[2]*ts[4{]*ts[1]*ts[4{]*tsli] eq 
g*(ts[1]*ts[{]*ts[1]*ts[4]*ts[1]*ts[4])-h 


then 21,9,h; break; end if; end for;end for; end for; 


/*We use SchreierSystem to give name for that permetations from G*/ 
N:=G1; 

Sch:=SchretierSystem(G, sub<G/Id(G)>); 

ArrayP:=[Id(N): 4 in [1..1092]]; 

for « in [2..1092] do 

P:=[Id(N): U in [1..#Sch[4]]]; 

for j in [1..#Schlt]] do 

tf Eltseq(SchliJ) [7] eq 1 then Plj]:=f(a); end if; 

tf Eltseq(SchliJ) [7] eq 2 then Plj]:=f(y); end if; 

tf Eltseq(SchliJ) [7] eq 3 then Plj]:=f(t); end if; 

end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[i] :=PP; 

end for; 

for 4 in [1..1092] do if ArrayP[i] eq N!(2, 32, 56, 5, 19, 40) 
(3, 48, 25, 4, 49, 26)(6, 64, 70, 12, 63, 53)(7, 90, 65, 14, 85 
, 81)(8, 61, 54, 9, 62, 72)(10, 75, 88, 11, 74, 89) (13, 77, 17, 
24, 71, 18)(15, 79, 22, 27, 80, 23)(16, 73, 20, 29, 84, 21) (28, 
59, 51, 35, 47, 55) (30, 34, 67, 46, 52, 66)(31, 83, 86, 39, 82, 
78) (33, 45, 42, 50, 36, 41)(37, 57, 44, 38, 76, 43)(58, 68, 87) 
(60, 69, 91) then; Sch[i]; end tif; end for; 


Appendix C 
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MAGMA Code for DCE of S¢ x 2 


Over Ss 


S:=Sym(5); 
we:=S!(1,2,3,4,5); 
yy:=S!(1,2); 
N:=sub<S/ax, yy>; 


G<a,y>:=Group<x2,y/x2°5,y~2, (w*-1*y) “4, (aey*a~-2¥y*az) “2>; 


f,G1,k:=CosetAction(G, sub<G/z, y>) ; 

#G1, #k; 

CompositionFactors (G1); 

#sub<G/ax,y>; 
#DoubleCosets (G, sub<G/z, y>, sub<G/z, y>); 
IsSimple (G1); 

IsTransitive(N) ; 
DoubleCosets(G, subd<G/z, y>, sub<G/xz, y>) ; 


Sch:=SchretierSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(M): 4 in [1..120]]; 

for «~ in [2..120] do 

P:=[Td(N): l in [1..#Sch[i]]]; 

for j in [1..#Schlt]] do 

tf Eltseq(Schli]) [7] eq 1 then Plj]:=ax; end if; 
tf Eltseq(Schli]) [7] eq -1 then Plj]:=xx"-1; end if; 
tf Eltsegq(SchliJ) [7] eq 2 then Plj]:=yy; end if; 
end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 
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ArrayP[i] :=PP; 

end for; 

N5:=Stabiliser(N, 5); 

N5; 

for « in [1..120] do if ArrayPli] eq N!(2, 3) then SchliJ; 
end if; end for; 


G<a,y,t>:=Group<z,y,t/“2°5,y~2, (w--1*y) “4, (wey*n~-2*y*x) “2, 
t°2, (t,y), (t, yxu “2eyxary*e-1), (t,0°-2ey*a 2), (t, yxory*n “2*y*z) 
» (Cyxaxy*e-1)=t*t * (x) *t (2-2) *t)>; 
f,G1,k:=CosetAction(G, sub<G/z, y>) ; 

#G1, #k; 

CompositionFactors (G1); 

#sud<G/ax,y>; 

#DoubleCosets(G, sub<G/z,y>, sub<G/z, y>); 

IsTransitive(N); 

DoubleCosets (G, sub<G/az,y>, sub<G/z, y>); 

for n in N do [5,1,2,5,2,5,1]“n; end for; 

ts:=[f(t), f (ta), f(t7(@°2)), f(t (@°3)), f(t" (edd; 
IN:=sub<G1/f (2), f(y); 

prodim := function(pt, Q, DD 

/* 

Return the image of pt under permutations Q[I] applied sequentially. 
*/ 

uv := pt; 

for 7 in I do 

v i= uv (Qlt]); 

end for; 

return v; 

end function; 


per2sym := function(G1,N, p) 
ww := cstl1~p]; 
tt := p * &«[(Gi/ts[wwlf#ww - 1 + tJ]: lin [1 .. Awol]; 
zz := Ni[rept{j: j in [1..5] | (1°tsli]) “tt eq 1°tslj]}: 
4 in [1..5]]; return <zz, ww; 
end function; 


est := [null : 4 in [1 ..12]] where null is [Integers() | J; 
for «7 := 1 to 5 do 

cst[prodim(1, ts, [iJ)] := [i]; 

end for; 

m:=0; 

for i in [1..12] do if cstli] ne [] then m:=mt1; end if; 


end for; m; 

N5:=Stabiliser(N, 5); 

Orbits (N5) ; 

#N5; 

Sc={fo;1 13; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[5]*ts[1] eq g*ts[Rep(SSS[iJ) [1]] 
*ts[Rep(SSS[i]) [2]] then print SSS[i]; end if; end for; 
end for; 

N51:=Stabiliser(N, [5,1]); 

#N51; 


for g in N do tf 57g eq 5 and 17g eq 2 then N51:=sub<N/N51,9>; 


end if; end for; 


for g in N do tf 5°g eq 5 and 17g eq 4 then N51:=sub<N/N51, 9>; 


end if; end for; 


for g in N do tf 57g eq 5 and 17g eq 3 then N51:=sub<N/N51,9>; 


end if; end for; 

[5,1] “N51; 

Orbits (N51); 

#N51 ; 

T51:=Transversal (N, N51); 

for «~ in [1..#T51] do 

ss:=[5,1]°T51[%]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..12] do if cstl[i] ne [] then m:=mt1; end if; 
end for; m; for «@ in [1..#T51] do [5,1]°T51[i]; end for; 
S:=([8,1,5)}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[5]*ts[1]*ts[5] eq g*ts[Rep(SSS[iJ) [1] ] 
*ts [Rep (SSS[i]) [2] ]*ts [Rep (SSS[iJ)[3]] then print SSS[i]; 
end ~f; end for; end for; 

N515:=Stabiliser(W, [5,1,5]); 

#N515; 

for g in N do if 5°g eq 1 and 1°g eq 2 and 57g eq 1 then 
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N515:=sub<N/N515,9>; end tf; end for; 

for g in N do tf 5°g eq 5 and 179 eq 2 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 2 and 1°79 eq 3 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 2 and 17g eq 1 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 1 and 17g eq 3 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 3 and 1°79 eq 4 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 3 and 1°79 eq 2 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 2 and 1°79 eq 4 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 4 and 17g eq 5 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 4 and 1°79 eq 3 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 3 and 17g eq 1 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 3 and 17g eq 5 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 1 and 1°79 eq 4 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 5 and 1°79 eq 4 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do if 5°g eq 4 and 1°79 eq 2 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 4 and 17g eq 1 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 2 and 1°79 eq 5 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 1 and 17g eq 5 and 
N515:=sub<N/N515,9>; end if; end for; 

for g in N do tf 5°g eq 5 and 1°79 eq 3 and 
N515:=sub<N/N515,9>; end if; end for; 

[5,1,5] “W515; 

Orbits (N515) ; 

#N515; 

T515:=Transversal (N,N515) ; 

for « in [1..#T515] do 

ss:=[5,1,5]°T515[%]; 

cst[prodim(1, ts, ss)] := ss; 


5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 
5°9 


5°9 


eq 


eq 


eq 


eq 


eq 


eg 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


eq 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 


then 
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[1..12] do if cst[i] ne [] then m:=mt1; end if; 


; im; for «4 in [1..#T515] do [5,1,5]°T515[%]; 
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Appendix D 


MAGMA Code for DCE of 
Mo x 2 Over S¢ 


S:=Sym(30) ; 
we:=S!(1, 2, 4, 8(3, 6, 11, 18, 26, 20, 29, 22) 
(5, 10, 17, 12, 19, 28, 30, 25)(7,13, 21, 
27, 15, 24, 23, 14)(9, 16); 
yy:=S!(1, 3, 7, 14, 23, 29, 4, 9)(2, 5, 10, 6, 
12, 20, 28, 30)(8, 15, 25, 21)(11,16, 26, 
19, 13, 22, 24, 17) (18, 27); 
N:=sub<S/az, yy>; 
G<a,y, t>:=Group<az,y,t/x°8,y~8, (wty ~-2*x) “2, (w~-1¥*y~-1) “4, 
(axy~-1) “4, (y*-1¥a 7-1 *y*a “Sey *e ~-1*y ~-1*a) , (yxa*y*n “Sey*ery 2), 
t°2, (t, 2°74), (t, exy*u~-1*y~-2*a), (t, oxyeaxy*e ~“-1¥y~-1) 
» ((a~-3) *t* (y73))°5, ((2*-3) tb -(y°D)) “>; 
f,G1,k:=CosetAction(G, sub<G/z, y>) ; 
#G1; #k; 
CompositionFactors (G1); 
Center (G1); 
#DoubleCosets(G, sub<G/z, y>, sub<G/az, y>); 
#sub<G/ax,y>; 
Sch:=SchretierSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(N): % in [1..887040]]; 
for «+ in [2..887040] do 
P:=[Id(N): 1 in [1..#Sch[i]]]; 
for j in [1..#Schlt]] do 
tf Eltseq(Sch[iJ) [7] eq 1 then Plj]:=ax; end if; 
tf Eltseq(Schli]) [7] eq -1 then Plj]:=xx"-1; end if; 
tf Eltsegq(Sch[iJ) [7] eq 2 then Plj]:=yy; end tf; 


if Eltseq(Schl[iJ) [7] eq -2 then Plj]:=yy"-1; end if; 

end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[i] :=PP; 

end for; 

/* 

for n in N do [1, 2, 4, 8,3, 6, 11, 18, 26, 20, 29, 22,5, 10, 17, 
12, 19, 28, 30, 25,7, 13, 21, 27, 15, 24, 23, 14,9, 16,27,23,13, 
15,14] “n; end for; 

for n in N do [3, 26, 2, 19, 6, 20, 7, 15, 10, 28, 11, 29, 12, 25, 
13, 24, 14, 27, 17, 30, 18, 22, 21, 23, 16, 9, 16, 9]°n; end for; 
*/ 


ts:=[f(t),fad-@m),fa°W),fd°@°2)), ft" (ary), ft" (ytan)), 
FEIUNGDI FCC DI AAG DIF ety a2) fC te 2) 
fA ery"), f(t Cly-2) *a)), f (At (yD), f(t Cly"2) *(a2"4))), 
fA Cly"D *a)), f t* (ary* (22) )), f (b> (yk (2) )), f (4 Caory* (074) )) 
sft (y*(@5))) FE Ca Dy" 3))), Ft yt 2D), FAD), 
ft Cly"2)* (25) )) , f(t Ca *(y"Q)), f tye (a4), 

fA Cy) *(@"3))), f (E> (ary OO), fF At (y5)), f(t (ar (y"D))I; 
IN:=sub<G1/f (2), f(y); 


Index (G, sub<G/z, y>); 

prodim := function(pt, Q, DD 

/* 

Return the image of pt under permutations Q[I] applied sequentially. 
*/ 

uv := pt; 

for 7 in I do 

v := uv (Qltl); 

end for; 

return v; 


end function; 

est := [null : 4 in [1 ..1232]] where null is [Integers() | ]; 
for «7 := 1 to 30 do 

cst[prodim(1, ts, [iJ)] := [i]; 

end for; 

m:=0; 

for « in [1..1232] do if cstli] ne [] then m:=m+1; end if; 
end for; m; 

N1:=Stabiliser(N, 1); 

Orbits(N1); 

#N1; 
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S=1fi3e1 Fs 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2] eq g*ts[Rep(SSS[t]) [1]] 
*ts[Rep(SSS[i])[2]] then print SSS[iJ]; end if; end for; 
end for; 

N12:=Stabiliser(N, [1,2]); 

#N12; 

Orbits (N12) ; 

#SSS; 

T12:=Transversal (N, N12) ; 

for «4 in [1..#T12] do 

ss:=[1,2]°T12[%]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..1232] do if cstli] ne [] then m:=m+1; end if; 
end for; m; 

S:={[1,3]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[3] eq g*ts[Rep(SSS[t]) [1]] 
*ts[Rep(SSS[i])[2]] then print SSS[iJ]; end if; end for; 
end for; 

N13:=Stabiliser(N, [1,3]); 

#N13; 

for g in N do tf 17g eq 3 and 3°g eq 1 then N13:=sub<N/N13, 9>; 
end wf; end for; 

[1,3] “N13; 

#N13; 

Orbits (N13); 

T13:=Transversal (N, N13); 

for « in [1..#T13] do 

ss:=[1,3]°T13[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..1232] do if cstli] ne [] then m:=m+1; end if; 
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S:=¢/1,4]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[4] eq g*ts[Rep(SSS[iJ) [1]] 
*«ts[Rep(SSS[i])[2]] then print SSS[iJ]; end if; end for; 
end for; 

N14:=Stabiliser(N, [1,4]); 

#N14; 

for g in N do if 1°79 eq 4 and 47g eq 1 then 
N14:=sub<N/N14,g>; end if; end for; 

for g in N do tf 1°g eq 18 and 479 eq 22 then 
N14:=sub<N/N14,9>; end if; end for; 

for g in N do tf 17g eq 20 and 47g eq 6 then 
N14:=sub<N/N14,9>; end if; end for; 

for g in N do tf 17g eq 22 and 47g eq 8 then 
N14:=sub<N/N14,g>; end if; end for; 

for g in N do tf 1°g eq 6 and 47g eq 20 then 
N14:=sub<N/N14,g>; end if; end for; 

[1,4] N14; 

#N14; 

Orbits (N14); 

T14:=Transversal (W,N14); 

for 4 in [1..#T14] do 

ss:=[1,4]°T14[%]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..1232] do if cstli] ne [] then m:=m+1; end if; 
end for; m; 

S:={f1,2,3]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for «~ in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[3] eq g*ts[Rep(SSS[t]) [1]] 
*ts [Rep (SSS[i]) [2] ]*ts [Rep (SSS[iJ)[3]] then print SSS[i]; 
end if; end for; end for; 

N123:=Stabiliser(N, [1,2,3]); 

#N123; 
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for g in N do tf 17g eq 1 and 27g eq 8 and 37g eq 26 then 
N123:=sub<N/N123,9>; end if; end for; 

[1,2,3]“N123; 

#N123; 

Orbits (N123) ; 

T123:=Transversal (N,N123) ; 

for « in [1..#T123] do 

ss:=[1,2,3]°T123 [1]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..1232] do if cstli] ne [] then m:=m+1; end if; 
end for; m; 

S:={[1,2,4]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if tsf[i]*ts[2]*ts[4] eq g*tslRep(SSS[iJ) [1] ] 
*ts [Rep (SSS[i]) [2] ]*ts [Rep (SSS[iJ)[3]] then print SSS[i]; 
end if; end for; end for; 

N124:=Stabiliser(N, [1,2,4]); 

#N124; 

for g in N do if 1°g eq 2 and 2°g eq 1 and 47g eq 8 then 
N124:=sub<N/N124,9>; end if; end for; 

[1,2,4] “N124; 

#N124; 

Orbits (N124); 

T124:=Transversal (N,N124); 

for « in [1..#T124] do 

ss:=[1,2,4]°T124[t]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..1232] do if cstli] ne [] then m:=m+1; end if; 
end for; m; 

S:={[1,2, 8]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[8] eq g*ts[Rep(SSS[t]) [1]] 


*ts [Rep (SSS[i]) [2] ]*ts [Rep (SSS[iJ)[3]] then print SSS[i]; 
end ~f; end for; end for; 

N128:=Stabiliser(N, [1,2,8]); 

#N128; 

for g in N do tf 17g eq 9 and 27g eq 15 and 8g eq 5 then 
N128:=sub<N/N128,9>; end if; end for; 

for g in N do tf 17g eq 1 and 27g eq 29 and 8g eq 11 then 
N128:=sub<N/N128,9>; end if; end for; 

for g in N do tf 17g eq 9 and 27g eq 7 and 8g eq 19 then 
N128:=sub<N/N128,9>; end if; end for; 

for g in N do tf 17g eq 9 and 27g eq 19 and 8g eq 7 then 
N128:=sub<N/N128,9>; end if; end for; 

for g in N do tf 17g eq 1 and 27g eq 11 and 8g eq 29 then 
N128:=sub<N/N128,9>; end if; end for; 

for g in N do tf 17g eq 9 and 27g eq 5 and 8g eq 15 then 
N128:=sub<N/N128,9>; end if; end for; 

for g in N do tf 17g eq 1 and 27g eq 8 and 8g eq 2 then 
N128:=sub<N/N128,9>; end if; end for; 

[1,2, 8] “N128; 

#N128; 

Orbits (N128) ; 

T128:=Transversal (N,N128) ; 

for « in [1..#T128] do 

ss:=[1,2,8]°T128[1]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..1232] do if cstli] ne [] then m:=m+1; end if; 
end for; m; 

Si=(11, 22,1713; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 


for g in IN do if ts[1]*ts[2]*ts[17] eq g*ts[Rep(SSS[i]) [1]] 


*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[iJ)[3]] then print SSS[i]; 
end if; end for; end for; 

N1217:=Stabiliser(N, [1,2,17]); 

#N1217; 


for g in N do tf 1°g eq 28 and 2°79 eq 16 and 17°g eq 11 then 


N1217:=sub<N/N1217,g>; end if; end for; 
for g in N do if 1°79 eq 4 and 2°g eq 2 and 17°g eq 7 then 
N1217:=sub<N/N1217,g>; end if; end for; 
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for g in N do tf 17g eq 13 and 2°79 eq 16 and 17°g eq 26 then 
N1217:=sub<N/N1217, g>; end if; end for; 

[1,2,17] “N1217; 

#N1217; 

Orbits (N1217) ; 

T1217:=Transversal (N,N1217) ;sx 

for « in [1..#T1217] do 

ssi=[1,2,17] “T1217[4]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..1232] do if cstli] ne [] then m:=m+1; end if; 
end for; m; 

S:=[1,4, 16] }; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for «~ in [1..#SS] do 

for g in IN do if ts[1J*ts[{]*ts[16] eq g 

*ts [Rep (SSS[i]) [1] ]*ts [Rep (SSS[i]) [2] ] *ts [Rep (SSS[i]) [3] ] 

then print SSS[i]; end if; end for; end for; 

N1416:=Stabiliser(N, [1,4,16]); 

#N1416; 

for g in N do if 17g eq 15 and 4°g eq 5 and 16°g eq 1 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do if 1°g eq 16 and 47g eq 6 and 167g eq 20 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do if 1°g eq 1 and 47g eq 7 and 16°g eq 19 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 17g eq 17 and 47g eq 23 and 16°g eq 4 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do if 17g eq 6 and 47g eq 17 and 16°g eq 5 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 1°g eq 17 and 47g eq 5 and 167g eq 6 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 17g eq 6 and 47g eq 21 and 16°79 eq 7 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 18 and 4°79 eq 16 and 167g eq 22 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 1°g eq 16 and 4°g eq 1 and 16°79 eq 4 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 17g eq 19 and 4°79 eq 20 and 167g eq 30 then 
N1416:=sub<N/N1416,9>; end if; end for; 
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for g in N do tf 17g eq 20 and 4°79 eq 19 and 167g eq 30 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 21 and 4°79 eq 4 and 167g eq 30 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 17g eq 22 and 47g eq 5 and 167g eq 30 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 1°g eq 7 and 47g eq 6 and 167g eq 21 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 17g eq 23 and 4°79 eq 7 and 167g eq 22 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do if 17g eq 24 and 47g eq 10 and 16°g eq 2 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 17g eq 25 and 47g eq 10 and 16°g eq 3 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 1°g eq 9 and 47g eq 11 and 167g eq 29 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 17g eq 26 and 479 eq 12 and 167g eq 28 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do if 17g eq 2 and 47g eq 13 and 167g eq 28 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 17g eq 3 and 47g eq 14 and 167g eq 13 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 17g eq 12 and 47g eq 14 and 16°g eq 8 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 11 and 47g eq 29 and 16°g eq 9 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 17g eq 11 and 47g eq 12 and 167g eq 10 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 1°g eq 12 and 4°79 eq 11 and 16°g eq 10 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 12 and 4°79 eq 10 and 167g eq 11 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 11 and 47g eq 10 and 167g eq 12 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 11 and 47g eq 27 and 167g eq 13 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do if 17g eq 12 and 4°79 eq 8 and 167g eq 14 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 17g eq 26 and 4°79 eq 9 and 16°79 eq 3 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 27 and 479 eq 26 and 167g eq 24 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 9 and 47g eq 2 and 16°79 eq 8 then 
N1416:=sub<N/N1416,9>; end if; end for; 


for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 17g eq 
N1416:=sub<N/N1416, g>; 
for g in N do if 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 17g eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 17g eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do if 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do if 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
for g in N do tif 179 eq 
N1416:=sub<N/N1416, g>; 
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26 and 4°g eq 3 and 16°9 eq 9 then 
end if; end for; 

28 and 4°g eq 29 and 169 eq 25 then 
end if; end for; 

13 and 4°79 eq 28 and 16°g eq 2 then 
end if; end for; 

29 and 4°g eq 28 and 1679 eq 25 then 
end if; end for; 

28 and 4°g eq 13 and 16°79 eq 2 then 
end if; end for; 

27 and 4°g eq 8 and 167g eq 25 then 
end if; end for; 

8 and 4°g eq 9 and 167g eq 2 then 
end if; end for; 

3 and 4°g eq 10 and 167g eq 25 then 
end if; end for; 

13 and 4°79 eq 11 and 167g eq 27 then 
end if; end for; 

14 and 4°79 eq 12 and 16°g eq & then 
end if; end for; 

14 and 4°79 eq 13 and 16°g eq 3 then 
end if; end for; 

29 and 4°g eq 14 and 1679 eq 24 then 
end if; end for; 

23 and 4°g eq 17 and 16°9 eq 4 then 
end if; end for; 

17 and 4°79 eq 6 and 16°79 eq 5 then 
end if; end for; 

5 and 4°g eq 17 and 167g eq 6 then 
end if; end for; 

21 and 4°g eq 6 and 16°9 eq 7 then 
end if; end for; 

16 and 4°79 eq 18 and 167g eq 22 then 

end if; end for; 

1 and 47g eq 16 and 16°79 eq 4 then 

end if; end for; 

4 and 4°g9 eq 21 and 16°g eq 30 then 

end if; end for; 

5 and 4°g eq 22 and 167g eq 30 then 

end if; end for; 

6 and 4°79 eq 7 and 16°g eq 21 then 

end if; end for; 

Tand 479 eq 23 and 167g eq 22 then 

end if; end for; 
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for g in N do tf 17g eq 19 and 4°79 eq 7 and 16°79 eq 1 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 1°g eq 20 and 479 eq 23 and 167g eq 15 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 17g eq 18 and 479 eq 22 and 167g eq 16 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 16 and 4°g eq 4 and 16°79 eq 1 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 17g eq 18 and 4°79 eq 19 and 167g eq 17 then 
N1416:=sub<N/N1416,g>; end if; end for; 

for g in N do tf 1°g eq 16 and 47g eq 20 and 16°g eq 6 then 
N1416:=sub<N/N1416,g>; end if; end for; 


for g in N do if 1°g eq 15 and 4°g eq 1 and 16°g eq 5 then 
N1416:=sub<N/N1416,9>; end if; end for; 

for g in N do tf 17g eq 21 and 47g eq 18 and 167g eq 15 then 
N1416:=sub<N/N1416,9>; end if; end for; 

[1,4, 16] “N1416; 

#N1416; 

Orbits (N1416); 

T1416:=Transversal (N,N1416); 

for « in [1..#T1416] do 

ss:=[1,4,16]“T1416[%]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..1232] do if cstli] ne [] then m:=m+1; end if; 
end for; m; 


Appendix E 


MAGMA Code for DCE of M2 


Over S¢ 


S:=Sym(30) ; 
we:=S!(1, 2, 4, 83, 6, 11, 18, 26, 20, 29, 22) 

(5, 10, 17, 12, 19, 28, 30, 25)(7,13, 21, 
27, 15, 24, 23, 14)(9, 16); 
yy:=S!(1, 3, 7, 14, 23, 29, 4, 9)(2, 5, 10, 6, 

12, 20, 28, 30)(8, 15, 25, 21) (11, 16, 26, 
19, 13, 22, 24, 17) (18, 27); 
N:=sub<S/az, yy>; 
G<a,y, t>:=Group<z,y,t/x-8,y~8, (w*y ~-2*x) “2, (w~-1¥*y~-1) “4, 
(axy~-1) “4, (y*-1*a 7-1 *y*n “Syren ~-1*y ~-1*z), 
(yxaxyre “Seyxary 2), t°2, (t, 274), (t, o*xy*a~-1*y~-2ax), 
(4, oxyxary*a~-1*y~-1), ((27-3) *t~ (y"3)) “5, ((a*-3) tb (y"T)) “4 
oo * te B-1 KY * TK Yl * LT -1 * OD; 
f,G1,k:=CosetAction(G, sub<G/z, y>) ; 
#G1; #k; 
CompositionFactors (G1); 
Center (G1); 
#DoubleCosets (G, sub<G/z, y>, sub<G/z, y>); 
#sub<G/ax,y>; 
Sch:=SchreterSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(N): «4 in [1..443520]]; 
for % in [2..443520] do 
P:=[Id(N): 1 in [1..#Sch[i]]]; 
for j in [1..#Sch[t]] do 
tf Eltseq(Schl[iJ) [7] eq 1 then Plj]:=ax; end if; 
tf Eltseq(Schl[i]) [7] eq -1 then Plj]:=xx"-1; end if; 
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tf Eltseq(Sch[iJ) [7] eq 2 then Plj]:=yy; end tf; 

tf Eltseq(Schli]) [7] eq -2 then Plj]:=yy"-1; end if; 

end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[i] :=PP; 

end for; 

Index (G, sub<G/z, y>); 

ts:=[f(t), f(t-(a)), F(t-(y)) , f(t (@"2)), FE (wry), f(t (y*a)), 
FAY QD), ft (eB), FCA“ Yy"D), f A> (ar (y"2))), f (47 (y* (22) )) 
fb (ax (y"4Qd)), fF A> Cly 2) ¥a)), fA (yD), f(t" Cy" 2) *(@"4))), 
fA Cly"D *a)), f > Cary* (22) )), f (b> (yk (03) )), f (4 Caoty* (074) )) 
of CE" Cyt (eS) )), f CECB) # Cy" B))), ft (yt @°D)), fA y"4)), 
SOA CYy2)*@"S))) fF CE Ca D*(y"Q))), f(t (yt Ce 4))), 

ft" Cly"2) *(@°3))), f CE ae (y6))), FEY" S)) ft" ee (y?D))1; 
IN:=sub<G1/f (2), f(y); 

prodim := function(pt, Q, ID) 

/* 

Return the image of pt under permutations Q[I] applied sequentially. 
*/ 

uv := pt; 

for 7 in I do 

uv := vu (Qlt]); 

end for; 

return v; 

end function; 


est := [null : 4 in [1 ..616]] where null is [Integers() | J]; 
for «7 := 1 to 30 do 

cst[prodim(1, ts, [i])] := [4%]; 

end for; 

m:=0; 

for «4 in [1..616] do tf cst[t] ne [] then m:=mt1; end if; end for; m; 
N1:=Stabiliser(N, 1); 

Orbits (N1); 

#N1; 

S:={[1,2]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2] eq g*ts[Rep(SSS[i]) [1] ]* 
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ts [Rep (SSS[i]) [2]]then print SSS[i]; end if; end for; 
end for; 

N12:=Stabiliser(N, [1,2]); 
#N12; 

Orbits (N12); 

#SSS; 
T12:=Transversal (N, N12) ; 

for « in [1..#T12] do 
ss:=[1,2]°T12[%]; 
cst[prodim(1, ts, ss)] := ss; 
end for; 

m:=0; 


for 4 in [1..616] do if cst[t] ne [] then m:=mt1; end if; end for; m; 


S:={[1,3]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[3] eq g*ts[Rep(SSS[t]) [1]] 
*«ts[Rep(SSS[i])[2]] then print SSS[iJ]; end if; end for; 
end for; 

N13:=Stabiliser(N, [1,3]); 

#N13; 

for g in N do tf 1°g eq 3 and 37g eq 1 then 
N13:=sub<N/N13,g>; end if; end for; 

[1,3] °N13; 

#N13; 

Orbits (N13) ; 

T13:=Transversal (N, N13); 

for « in [1..#T13] do 

ss:=[1,3]°T13[i]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for «~ in [1..616] do if cst[i] ne [] then m:=mt1; end if; 
end for; m; 

S:={[1,2,4]}; 

SS:=S°N; 

SS; 

SSS:=Setseq (SS) ; 

for « in [1..#SS] do 

for g in IN do if ts[1]*ts[2]*ts[4] eq gxts[Rep(SSS[i]J) [1]] 


222 


223 


*ts [Rep (SSS[i]) [2] ]*ts [Rep (SSS[iJ)[3]] then print SSS[i]; 
end wf; end for; end for; 

N124:=Stabiliser(N, [1,2,4]); 

#N124; 

for g in N do tf 1°g eq 2 and 2°g eq 1 and 47g eq 8 then 
N124:=sub<N/N124,9>; end if; end for; 

[1,2,4] “N124; 

#N124; 

Orbits (N124) ; 

T124:=Transversal (N, N124) ; 

for 4 in [1..#T124] do 

ss:=[1,2,4]°T124[t]; 

cst[prodim(1, ts, ss)] := ss; 

end for; 

m:=0; 

for « in [1..616] do if cst[i] ne [] then m:=mt1; end if; 
end for; m; 
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Appendix F 


MAGMA Code for The 
Progenitor Tae Cae 


/* to find the parmatation */ 
NumberOfTransitiveGroups (8) ; 
N:=TransitiveGroup (8,22); 
D:=SmallGroupDatabase (); 

G:=SmallGroup (D, IdentifyGroup (N) [1], IdentifyGroup (N) [2]); 
f,.G1,k:=CosetAction(G, sub<G/Id(G)>); 
SL:=Subgroups (G1); 

T:= {X‘subgroup: X in SL}; 

TrivCore:={H:H in T/ #Core(G1,H) eq 1; 
mdeg:=Min(t{Index(G1,H):H in TrivCore}); 
Good:={tH: H in TrivCore/ Index(G1,H) eq mdeg}; 
H:=Rep (Good) ; 

f,G1,K := CosetAction(G1,H); 

G1; 

FPGroup (G) ; 


G<a,b,c,d,e>:=Group<a,b,c,d,e/a~2,b°2,c°2,d°2,e°2,b“a=b*e, 
Cc” a=c, c b=c*e, d a=d*e, d b=d, d°c=d, e a=e, e b=e,e°c=e,e d=e>; 
#G; 

/* Write a presentation for the progenitor 2*8: N /* 


S:=Sym(8); 

aa:=S! (2, 5)(6, 7); 

bb:=S! (1, 2)(3, M4, 5), 8); 
cez=S! (1, 8G; 6); 8) (5, Ds 
a@a:=S! (1; 203, 6G) 5)C7,.. 6) 
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ee:=S! (1, 4)(2, 5)(3, 86, 7); 
N:=sub<S/aa,bb,cc, dd, ee>; 
G<a,b,c,d,e>:=Group<a,b,c,d,e/a~2,b°2,c°2,d°2,e°2,b“a=b*e, 
Cc” a=c,c b=c*e, d a=d*e, d b=d,d°c=d, e a=e, e b=e,e°c=e,e d=e>; 
#G; 

Sch:=SchreterSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(M): 4 in [1..32]]; 

for « in [2..32] do 

P:=[Td(N): l in [1..#Sch[i]]]; 

for j in [1..#Schlt]] do 

tf Eltsegq(Sch[i]) [7] eq 1 then Plj]:=aa; end if; 
tf Eltseq(SchliJ]) [7] eq 2 then P[j]:=bb; end if; 
tf Eltseq(Schl[iJ) [7] eq 3 then Plj]:=cc; end if; 
tf Eltsegq(SchliJ) [7] eq 4 then Plj]:=dd; end if; 
tf Eltseq(SchliJ) [7] eq 5 then Plj]:=ee; end if; 
end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[i] :=PP; 

end for; 

for « in [1..32] do Schli], ArrayP[i]; end for; 
N1:=Stabiliser(N,1); 

N1; 

N12:=Stabiliser(N, f1,2}); 

Ni2; 

C:=Centraliser(N, N12); 

C; 


G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2,b°2,c°2,d°2,e°2,b“a=b*e, 

c”°a=c,c“b=c*e, ad a=d*e, d-b=d,d~c=d, e a=e,e b=e,e°c=e,e d=e,t2, 
(t,a), (t, b*d)>; 

#G; 

/*To find the first order relations and add them to the 
presentation to find the Homomorphic Images*/ 

C:=Classes(N); 

C; 


C2:=Centraliser(N,N!(1, 4)(2, 5)(38, 8(6, D); 
C3:=Centraliser(N,N!(1, 2)(3, NC, 56, 8)); 
C4:=Centraliser(V,N!(1, 3)(2, BC, BS, D); 
C5:=Centraliser(N,N! (2, 5)(6, 7); 

C6:=Centraliser(V,N!(1, 3)(2, NU, BS, 6)); 
C7:=Centraliser(V,N!(1, 6)(2, 8)(3, 5G, DY); 


C8:=Centraliser(N,N!(3, 8)(6, 7); 

C9:=Centraliser(N,N!(1, 2)(3, 6)(4, 5)(7, 8)); 
C10:=Centraliser(N,N!(1, 6) (2, 
C11:=Centraliser(N,N!(2, 5), 


C12:=Centraliser(V,N!(1, 5, 
C13:=Centraliser(V,N!(1, 6, 
C14:=Centraliser(N,N!(1, 3, 
C15:=Centraliser(N,N!(1, 5, 4, 
C16:=Centraliser(V,N!(1, 3, 
C17:=Centraliser(V,N!(1, 6, 


4; 
4; 
4; 


4; 
4; 


Set(C2); Orbits(C2); 
Set(C3); Orbits(C3); 
Set (C4); Orbits(C4); 
Set(C5); Orbits(C5); 
Set(C6); Orbits(C6); 
Set(C7); Orbits(C7); 
Set(C8); Orbits(C8s); 
Set(C9); Orbits(C9); 
Set(C10); Orbits(C10); 
Set(C11); Orbits(C11); 
Set(C12); Orbits(C12); 
Set(C13); Orbits(C13); 
Set (C14); Orbits (C14); 
Set(C15); Orbits(C15); 
Set(C16); Orbits (C16); 
Set(C17); Orbits(C17); 


J* 
G G27 
Class [2] 


3) (4, (5, 8); 


8)); 

2)(3, 6, 8, TD); 
TC 8 BBY): 
8)(2, 6, 5, D); 
2)(3, 7, 8, 6); 
8)(2, 7, 5, 6)); 
(2, 8, 5, 3); 


(Orbits (C2)= GSet{@ 1, 2, 3, 4, 5, 6, 7, 8 @ 


(e*t) ~w 


Class [3] 
(Orbits of C3 ) 
(o*t) “f 


Class [4] 
(Orbits of C4 ) 
(c*t) “9 


Class [5] 
(Orbits of C5) = 


GSet{@ 1, 2, 5, 3, 4, 7, 6, 8 @ 


GSet{@ 1, 3, 8, 2, 4, 6, 7, 5 @ 


GSet{@ 1, 4, 8, 3 @, GSet{@ 2, 5, 6, 7 G@ 
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(a*¥t)“n, (a*t~b)~o 


Class [6] 
(Orbits of C6 ) 
(a*xc*t) “s 


GSet{@ 1, 3, 8, 2, 4, 7, 6, 5 @ 


Class [7] 
(Orbits of C7 ) 
(a*b*c#t) “k 


GSet{@ 1, 6, 7, 2, 4, 8, 3, 5 @ 


Class [8] 
(Orbits of C& ) = GSet{@ 1 @G, GSet{@ 2, 3, 4, 8, 5, 7, 9, 6 @} 
(o*d¥*t) “1, (b*d*t ~b) “p 


Class [9] 
(Orbits of C9 2 = (@1, 2, 5, 3, 4, 6, 7, 8 @} 
(a*t) -y 


Class [10] 
(Orbits C10)= GSet{@ 1, 6, 7, 2, 4, 3, 8, 5 @} 
(c*d¥*t) ~z 


Class[11] 

(Orbits of C11 ) = GSet{@ 1, 4, 7, 6 Gt, GSet{@ 2, 5, 3, 8 G@ 
(axb¥*d¥t) “vu 

(Caxb*d*t ~b) “y 


Class [12] 
(Orbits of C12) = GSet{@ 1, 5, 3, 4, 6, 8, 2, 7 @ 
(axb*e*t) “7 


Class [13] 
(Orbits of C13) = GSet{@ 1, 6, 2, 4, 3, 5, 7, 8 @} 
(b¥*c*t) “n 


Class [14] 
(Orbits of C14 ) = GSet{@ 1, 3, 2, 4, 6, 5, 8, 7 @ 
(b*c*d*t) ~o 


Class [15] 
(Orbits of C15 ) = GSet{@ 1, 5, 3, 4, 7, 8, 2, 6 @} 
(a*xd*e*t) “k 


Class [16] 
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(Orbits of C16) = GSet{@ 1, 3, 2, 4, 7, 5, 8, 6 @} 
(a*b*c*d*t) “1 


Class [17] 

(Orbits of C17) = GSet{@ 1, 6, 2, 4, 8, 5, 7, 32 Q@ 
(axc*d*t) “s 

*/ 

for f.9,h,%,1,5,n,0,0,9,2,Y,2,U,8,g9,1,u,r in [0..10] do 
G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2,b°2,c°2,d°2,e°2,b“a=b*e, 
Cc” a=c,c b=c*e, d a=d*e, ad -b=d,d°c=d, e a=e, e b=e,e°c=e,e d=e,t2, 
(t,a), (t, b*d), (ext) “f, (0¥t) “7, (c¥t) mh, (axt) “4, (a*t~b) “1, (axc#t)“S, 
(axb*c*t) “n, (b¥d*t) “0, (b¥d*t~b) “p, (d*t) “q, (c*xd*t) “x, (axb¥*d*t) “y, 
(axb¥*d*t ~b) “z, (a*xb*ext) “u, (b¥c#*t) “s, (b¥c*d*t) “g, (axd*ext) “I, 
(axb*c*d*t) “u, (a*xc*d*t) “r>; 

af #G gt 32 then f,7,h,%4,1,5,2,0,0,9,2,Y,2,U,8,9,1,U,7%, 

Index (G,sub<Gla,b,c,d,e>), #G; end if; end for; 


/* Relations by use the lemma: /* 
N12:=Stabiliser(N, f1,2}); 

N12; 

b* d= (38, 8)(6, 7) => (t*t*b)“k=b * d 
b (1, 2)(3, 7) (4, 5)(6, 8) => (b¥t)“m=1 


Appendix G 


MAGMA Code for The 
Progenitor aie Cae 


/*Find the permutations to write the progenitor*/ 
N:=TransitiveGroup (9,19); 
D:=SmallGroupDatabase (); 


G:=SmallGroup (D, IdentifyGroup (N) [1], IdentifyGroup (N) [2]); 


f,G1,k:=CosetAction(G, sub<G/Id(G)>); 
SL:=Subgroups (G1); 

T:= {X‘subgroup: X in SL}; 

TrivCore:={H:H in T/ #Core(G1,H) eq 1; 
mdeg:=Min(t{Index(G1,H):H in TrivCore}); 
Good:={H: H in TrivCore/ Index(G1,H) eq mdeg}; 
H:=Rep (Good) ; 

f,G1,K := CosetActtion(G1,H); 

G1; 

FPGroup (G) ; 

G<a,b,c,d,e, f>:=Group<a,b,c,d,e,f/a°8,b°2,c4,4°2, 
e°3,f°3, (Ce, f),a°2=c,c“2=d, b “a=b*cx*d, c“a=c, c “b=c*d, 
d“a=d,d“b=d,d~c=d, e“a=f,e~b=ex(f~2),e-c=ex(f~2), 
e-d=e2, fa=e*(f 2) ,fb=f2, f-c=(eD¥(f 2), f-d=f 2, 
f°e=f>; 

#G; 

S:=Sym(9); 

aa:=S!(2, 3, 4, 8, 5, 7, 9, 6); 
bb:=S!(2, 4)(3, (5, 9); 
cce:=8!(2, 4, 5, D3, 8, 7, 6); 
dd:=S!(2, 5)(3, (4, 9)(6, 8); 
ee:=S!(1, 2, 5)(3, 6, D4, 8, 1; 
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ff:=8!1, 3, D2, 6, 4005, 9, 8); 
N:=sub<S/aa,bb,cc,dd,ee,ff>; 

/*Write the progenitor 2°*9 :N */ 

G<a,b,c,d,e, f>:=Group<a,b,c,d,e,f/a~8,b°2,c4,4°2,e°3, 
£73, (e, f),a°2=c, c“2=d, b“a=b*cx*d, c“a=c,c“b=c*d, d“a=d, 
d“b=d,d“c=d,e“a=f,e“b=ex(f 2), e°c=e* (f 2), e-d=e2, 
fra=ex(f°2), f*b=f 72, f*c=(e72) *(f°2), f"d=f-2, fe=f>; 


/*Write the presentation of the progenitor 2°*9 :N */ 
Sch:=SchreterSystem(G, sub<G/Id(G)>); 

ArrayP:=[Id(N): 4 in [1..144]]; 

for « in [2..144] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Schli]] do 

tf Eltseq(Sch[iJ) [7] eq 1 then Plj]:=aa; end if; 

tf Eltseq(Schli]) [7] eq -1 then Plj]:=aa~-1; end if; 
tf Eltseq(Schli]) [7] eq 2 then P[j]:=bb; end if; 

tf Eltseq(SchliJ]) [7] eq 3 then Plj]:=cc; end if; 

af Eltseq(SchliJ) [7] eq -3 then Plj]:=cc*-1; end if; 
tf Eltseq(Schl[iJ) [7] eq 4 then Plj]:=dd; end if; 

tf Eltseq(Schli]) [7] eq 5 then Plj]:=ee; end if; 

tf Eltseq(Schli]) [7] eq -5 then Plj]:=ee"-1; end if; 
tf Eltsegq(Schl[i]) [7] eq 6 then Plj]:=ff; end tf; 

tf Eltseq(SchliJ) [7] eq -6 then Plj]:=ff*-1; end if; 
end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[%i] :=PP; 

end for; 

for « in [1..144] do Schli], ArrayPli]; end for; 
N1:=Stabiliser(N,1); 

N1; 
G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a°8,b°2,c4, 
d°2,e°3,f 73, (e, f),a°2=c, c“2=d, b “a=b*cx*d, c“a=c,c~b=c*d, 
d“a=d,d“b=d,d“c=d, e“a=f,eb=e*(f"2),e-c=e*x(f 2), 
e*d=e 2, fa=e*(f-2), f-b=f "2, f-c=(e-2) *(f°2), f-d=f -2, 
fre=f,t°2, (ta), (t,b), (t,c), Ct, 4)>; 

#G; 


/*Find the first order relation and the lemma’s relations 


to add them in our presentation. */ 


C:=Classes(N); 
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C2:=Centraliser(N,N! (1, 
C3:=Centraliser(N,N! (1, 
C4:=Centraliser (N,N! (1, 
C5:=Centraliser(N,N! (1, 
C6:=Centraliser(N,N! (1, 
C7:=Centraliser(N,N! (1, 
C8:=Centraliser(N,N! (2, 
C9:=Centraliser(N,N! (2, 
Set(C2); Orbits(C2); 
Set(C3); Orbits(C3); 
Set (C4); Orbits(C4); 
Set(C5); Orbits(C5); 
Set(C6); Orbits (C6); 
Set(C7); Orbits(C7); 
Set(C8); Orbits(C8s); 
Set(C9); Orbits (C9); 


/* 
t ~ tdi 
for 4 in [1..144] do 


for> if ArrayPli] eq N!(2, 7, 4, 6, 5, 3, 9, 8) then Sch[i]; 


end if; end for; 


Orbits(C2)= GSet{@ 8 @}, GSet{@ 1, 6, 5, 3, 9, 2, 4, 


(c * f°-1 * c*t)“E 


6) (2, 3) (4, 
3) (4, 6)(5, 
2, 5)(3, 6, 


9, 
4; 
4; 
3, 
7, 


(c * f°-1 * c¥t*(f*e)) “w 


Orbits(C3)= GSet{@ 2, 9, 7 G@, GSet{@ 1, 3, 4, 6, 5, 


(b * fxt)“f 
(b * fxt~e)~q 


6, 


5) (2, 
8) (2, 
3, 6, 
8, 5, 
6, 5, 


7) (5, 
8)); 
9) (4, 
4, 3, 
6, 9, 
5) (2, 
Ds 
3, 9, 


9); 


8, DY); 
D>; 
5)); 
GT) Js 
6)); 
8)); 


Orbits (C4)J= GSet{@ 1, 2, 3, 5, 6, 8, 9, 7, 4 @ 


(ext) “7 


Orbits (C5)= GSet{@ 8 G@, GSet{@ 1, 9, 2, 6, 4, 5, 3, 


(e * c~-1*t)“n 
(e * c7-1*t~(f*c))~o 


Orbits(C6)= GSet{@ 7 @},GSet{@ 1, 4, 3, 8 @,GSet{@ 2, 6, 9, 5 G@ 


(a * e * b¥*t)"r 
(a * e * b¥t(f7-1))~u 
(a * e * b¥t7e) 4 


Orbits(C7)= GSet{@ 2, 9, 7 @, GSet{@ 1, 3, 4, 6, 8, 5 @ 


(e * b*t)“y 
(e * b*t*e)h 


Orbits(C8)= GSet{@ 1 Gt, GSet{@ 2, 3, 4, 8, 5, 7, 9, 6 G@ 


(axt) “1 
(a*t~e)“s 
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Orbits(C9)= GSet{@ 1 @}, GSet{@ 2, 7, 4, 6, 5, 3, 9, 8 @ 
(a * d*t) “a 

(a * d*t~e)~z 

*/ 

for E,w,F,q,j,n,0,7,u,%,y,h,1,s,2,2 in [0..10] do 
G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a°8,b°2,c4,d°2,e°3, 
£73, (e, f),a°2=c, c“2=d, b“a=b*cx*d, c“a=c,c“b=c*d, d“a=d, 
d“b=d,d~c=d, ea=f,e~b=ex(f 2), e-c=e*(f 2), e°d=e2, 
f-a=e*(f 2), f-b=f "2, f-c=(e-2) *(f"2), f-d=f°2, f-e=f, 

t°2, (t,a), (t,o), (t,c), (t, d), (cxf *-1*c*t) “E, 

(cxf “-1*c*t ~(fxc)) ~w, (b*fxt) “F, (b* fete) “gq, (e*t) J, 
(exc~-1*t) “n, (exc ~-1*t “(f*c)) “0, (axexd*t) “r, 

(axe*b*t ~(f~-1)) “u, (axe*b*t “e) “4, (exb*t) “y, (e*b*t~e) “h, 
(a*xt) “1, (axt~e)“s, (axd*t) “xz, (a*xd*t~e)~z>; 

af #G gt 144 then E,w,F,q,7,,0,7,U,1,Y,h,1,8,2,2, 

Index (G,sub<Gla,b,c,d,e,f>), #G; end if; end for; 


/* 

Find relation by using the lemma, 
N12:=Stabiliser(N, {1,2}); 

Ni2; 

b * c7-1 = (3, 8), D6, D 

beecxe = (1, 203, DG, 8) 

the first realation will be (t*t“f)“k=b * c7-1 
the second relation will be (b * c * e*t)“m=1 


*/ 


for z,k,m in [0..10] do 
G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a-8,b°2,c4,a°2, 
e°3,f°3, (Ce, f),a°2=c, c“2=d, b “a=b*cx*d, c-a=c, c“b=c*d, d“a=d, 
d“b=d,d“c=d,e“a=f,e~b=ex(f 2), e-c=e*(f 2), e-d=e2, 
fa=e*(f°2), f “b=f "2, f°c=(e 2) *(f 2), f “d=f 2, f°e=f,t 2, 
(t,a), (t,b), (t,c), (t,d), (a¥d*t“e) “z, (t*t“f) “k=b*c°-1, 
(b*c*e*t) “m=1>; 
af #G gt 144 then z,k,m, Index(G,sub<G/a,b,c,d,e,f>), 
#G; end if; end for; 
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Appendix H 


MAGMA Code for The 
Progenitor ae (Pa 5) 


N:=TransitiveGroup (10, 16); 
D:=SmallGroupDatabase (); 

G:=SmallGroup (D, IdentifyGroup (N) [1], IdentifyGroup (N) [2]); 
f,.G1,k:=CosetAction(G, sub<G/Id(G)>); 
SL:=Subgroups (G1); 

T:= {X‘subgroup: X in SL}; 

TrivCore:=tH:H in T/ #Core(G1,H) eq 1; 
mdeg:=Min({Index(G1,H):H in TrivCore}); 
Good:={H: H in TrivCore/ Index(G1,H) eq mdeg}; 
H:=Rep (Good); 

f,G1,K := CosetAction(G1,H); 

G1; 

FPGroup (G) ; 


G<a,b,c,d,e,n>:=Group<a,b,c,d,e,n/a°2,b°5,c°2,d4°2,e°2,n°2, 
b°a=b"4,ca=c*d, cb=cx*d, d-a=d, d“b=d*e, d~c=d, e-a=c*d*¥n, 

e b=ex*n, e c=e, e d=e,n a=c*e,n b=c,n° c=n, n° d=n,n°-e=n>; 

#G; 


S:=Sym(10) ; 

aa:=S! (1, 2(3, 5, DN(6, 9(8, 10); 
bb:=S! (1, 3, 6, 10, Nl, 4, 8, 9, 5); 
cec:=S! (1, 20°05, 1; 

dd:=S! (3, 4)(8, 7); 

ee:=S! (1, 203, 4205, (6, 8); 

nn:=S! (5, 79, 10); 
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N:=sub<S/aa,bb,cc,dd,nn>; 

#N; 

/*Find the presentation of the progenitor 2°(*10) : Nx*/ 
Sch:=SchreterSystem(G, sub<G/Id(G)>); 

ArrayP:=[Id(M): 4 in [1..160]]; 

for «~ in [2..160] do 

P:=[ITd(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Schli]] do 

tf Eltseq(Schl[iJ) [7] eq 1 then Plj]:=aa; end if; 

tf Eltsegq(Sch[iJ) [7] eq 2 then P[j]:=bb; end if; 

tf Eltseq(SchliJ) [7] eq -2 then Plj]:=bb"-1; end if; 

tf Eltseq(SchliJ) [7] eq 3 then Plj]:=cc; end if; 
tf Eltseq(SchliJ) [7] eq 4 then P[j]:=dd; end if; 
tf Eltsegq(Schl[iJ) [7] eq 5 then Plj]:=ee; end if; 

tf Eltsegq(SchliJ) [7] eq 6 then Plj]:=nn; end if; 

end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[%i] :=PP; 

end for; 

N1:=Stabiliser(N, 1); 

N1; 

G<a,b,c,d,e,n, t>:=Group<a,b,c,d,e,n,t/a°2,b°5,c°2,d°2,e°2,n°2, 
b°a=b"4,ca=c*d, c b=c*d, d-a=d,d~b=d*e, d~c=d, e -a=c*d*¥n, 
e“b=exn, ce c=e,e d=e,n a=c*e,n b=c,n° c=n,n d=n,n°-e=n,t 2, 

(t, da), (t,n), (t, (axcen))>; 

#G; 


Appendix I 


MAGMA Code for The 
Progenitor ae 20-32) 


Write a progenitor for a transitive group on 18 points. 


NumberOfTransitiveGroups (18) ; 
983 


N:=TransitiveGroup (18, 12) ; 
D:=SmallGroupDatabase (); 


G:=SmallGroup (D, IdentifyGroup (NM) [1], IdentifyGroup (N) [2]); 


f,G1,k:=CosetAction(G, sub<G/Id(G)>); 
SL:=Subgroups (G1) ; 

T:= {X‘subgroup: X in SL}; 

TrivCore:={H:H in T/ #Core(G1,H) eq 1}; 
mdeg:=Min(t{Index(G1,H):H in TrivCore}); 

Good:={H: H in TrivCore/ Index(G1,H) eq mdeg}; 

H:=Rep (Good) ; 

f,G1,K := CosetActtion(G1,H); 

G1; 

FPGroup (G) ; 
G<a,b,c,d>:=Group<a,b,c,d/a°2,0°2,c°3,d4°3,b°a=b,c“a=c"2, 
c°b=c,d-a=d"2,d~b=d,d~c=d>; 

#G; 

/* Write a presentation for the progenitor 2*18: N */ 


S:=Sym(18) ; 
aa:=S! (3, TDA; 9)(5, 10) (6, 12) (8, 14) (11, 17) (13, 15) 
(16, 18); 
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bb:=S! (1, 2)(3, 5)(4, 6)(7, 10)(8, 11) (9, 12) (13, 
(14, 1715, 18); 

602 =5) 1, 8, Wes &,. 40) Oy 8; AD) G, 415-16) ©; 
(12, 18, 17); 

dd:=S! (1, 4, (2, 6, 12)(3, 8, 15)(5, 11, 18)(7, 
(10, 16, 17); 

N:=sub<S/aa,bb,cc,dd>; 


16) 
15, 14) 


13): ay) 


G<a,b,c,d>:=Group<a,b,c,d/a°2,b°2,c°3,4°3,ba=b,c“a=c2, 


cb=c,d-a=d"2,d~b=d,d~c=d>; 

#G; 

Sch:=SchretierSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(N): 4 in [1..36]]; 

for « in [2..36] do 

P:=[Id(N): 1 in [1..#Schl%]]]; 

for j in [1..#Schli]] do 

tf Eltseq(Schl[iJ) [7] eq 1 then Plj]:=aa; end if; 
tf Eltseq(Schl[i]) [7] eq 2 then P[j]:=bb; end if; 
tf Eltsegq(Schl[i]) [7] eq 3 then Plj]:=cc; end if; 


af Eltsegq(SchliJ) [7] eq -3 then Plj]:=cc*-1; end if; 


tf Eltseq(SchliJ) [7] eq 4 then Plj]:=dd; end if; 


tf Eltseq(Schli]) [7] eq -4 then Plj]:=dd"-1; end if; 


end for; 

PP:=Id(N) ; 

for k in [1..#P] do 
PP:=PP*P[k]; end for; 
ArrayP[i] :=PP; 

end for; 

for «~ in [1..36] do Schli], ArrayP[i]; end for; 
N1:=Stabiliser(N, 1); 

N1; 

N12:=Stabiliser(N, (1,2}); 
N12; 
C:=Centraliser(N, N12); 
C; 


G<a,b,c,d,t>:=Group<a,b,c,d,t/a~2,b°2,c°3,d°3,b-a=b, 


c*a=c"2,c~b=c, d°a=d~2, d~b=d, d“c=d, t “2, (t,a)>; 
#G; 


/* To find the First order relations */ 
C:=Classes(N); 
C; 


C2:=Centraliser(N,N!(1, 2)(3, 5)(4, 6)(7, 10)(8, 11) 


(9, 12)(13, 16) (14, 17) (15, 18)); 


C3:=Centraliser(N,N!I(3, D4, 95, 10)(6, 12)(8, 14) 
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(11, 17)(13, 15) (16, 18)); 
C4:=Centraliser(N,N!(1, 2)(3, 104, 12(5, (6, 9) 
(8; 47) C11, dg) 013;, 18) 5. Ab) )¢ 
C5:=Centraliser(NV,N!(1, 3, 7) (2, 5, 10)(4, 8, 13) 
(6, 11, 16)(9, 15, 14) (12, 18, 17)); 
C6:=Centraliser(N,N!(1, 4, 9)(2, 6, 12)(3, 8, 15) 
(63-44, 18007, 23; 12) G0; 16,17); 
C7:=Centraliser(N,N!(1, 8, 14)(2, 11, 17) (3, 13, 9) 
(45 155 D6, 16, 1276; 18, 10)); 
C8:=Centraliser(N,N!(1, 15, 13)(2, 18, 16)(3, 14, 4) 
475. 6)'CT, Oy. 8) (10; 423. 11) )3 
C9:=Centraliser(N,N!(1, 5, 7, 2, 3, 10)(4, 11, 13, 
6, 8; FO) 93. 18, fd» 123. 15, 1): 
C10:=Centraliser(N,N!(1, 6, 9, 2, 4, 12)(3, 11, 15, 
By By TENT 16, IS: 10,13, 1)? 
C11:=Centraliser(N,N!(1, 11, 14, 2, 8, 17) (3, 16, 9, 
BIS AD) 18, 756 18, 10)): 
C12:=Centraliser(N,N!(1, 18, 13, 2, 15, 16)(3, 17, 4, 
5,145. 6) (7, 12, 8; 10,9; 11)); 


Set(C2); Orbits(C2); 
Set(C3); Orbits(C3); 
Set (C4); Orbits(C4); 
Set(C5); Orbits(C5); 
Set(C6); Orbits (C6); 
Set(C7); Orbits(C7); 
Set(C8); Orbits(C8s); 
Set(C9); Orbits(C9); 
Set(C10); Orbits(C10); 
Set(C11); Orbits(C11); 
Set(C12); Orbits(Ci12); 


J* 

t ~ tl 

Class [2] 

(Orbits of C2)= GSet{@ 1, 2, 3, 4, 5, 6, 7, 8 9, 10, 11, 
12, 13, 14, 15, 16, 17, 18 @ 

(o*t) ~e 

Class [3] 

(Orbits of C3 ) = GSet{@ 1, 2 @,GSet{@ 3, 7, 10, 5 @, 

GSet{@ 4, 9, 12, 6 G,GSet{@ 8, 14, 17, 11 @,GSet{@ 13, 
15, 18, 16 @ 

(axt) “f, (a*t~c)~g, (axt“d) “h, (a*t~(c¥d)) “4, (a*t~(d*c*-1)) 7 

Class [4] 
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(Orbits of CL) = GSet{@ 1, 2 @},GSet{@ 3, 7, 10, 5 @, 
GSet{@ 4, 9, 12, 6 G,GSet{@ 8, 14, 17, 11 @,GSet{@ 13, 
15, 18, 16 @ 

(axb¥*t) “L, (a*xb*t~c) “n, (axb¥*t “d) “0, (axb¥*t~(c*d)) “p, 
(axb*t ~(d*c~-1))“q 

Class [5] 

(Orbits of C5) = GSet{@ 1, 3, 18, 7, 17, 13, 12, 4, 2, 
8, 5, 15, 10, 14, 16, 9, 6, 11 @} 

(c¥t) “r 

Class [6] 

(Orbits of C6) = GSet{@ 1, 4, 18, 9, 5, 13, 11, 14, 

2, 7, 6, 15, 12, 3, 16, 8, 17, 10 @ 

(d*t)s 

Class [7] 

(Orbits of C7 ) = GSet{@ 1, 8, 18, 14, 10, 13, 6, 9, 

2, 3, 11, 15, 17, 7, 16, 4, 12, 5 @ 

(c¥*d*t) “w 

Class [8] 

(Orbits of C8) = GSet{@ 1, 15, 18, 17, 13, 16, 6, 4, 

8, 2, 5, 3, 7, 10, 14, 9, 12, 11 @ 


(c*d~-1*t) “x 

Class [9] 

(Orbits of C9) = GSet{@ 1, 5, 18, 7, 14, 13, 2, 12, 
6, 3, 15, 8, 10, 17, 16, 9, 4, 11 @ 

(b*c*t) “y 

Class [10] 


(Orbits of C10)= GSet{@ 1, 6, 18, 9, 3, 13, 2, 11, 17 
4-5 BS 7, 123-5} 16; <8, 12; 10 oF 

(b*d*t) ~z 

Class[11] 

(Orbits of C11 ) = GSet{@ 1, 11, 18, 14, 7, 13, 2, 6, 
12, 8, 15, 3, 17, 10, 16, 4, 9, 5 @ 

(b*c*d¥*t) “vu 

Class[12] 

(Orbits of C12) = GSet{@ 1, 18, 17, 13, 4, 8, 2, 5, 

10, 15, 14, 9, 16, 6, 11, 3, 7, 12 @ 

(b*c*d~-1*t) ~u 

*/ 


for e,f,9,h,%4,9,1,n,0,7,9,7,5,W,2,y,2,v,u tin [0..10] do 
G<a,b,c,d,t>:=Group<a,b,c,d,t/a°2,b°2,c°3,d°3,b-a=b,c“a=c2, 
c*b=c,d“a=d~2, d“b=d, d~c=d,t “2, (t,a), (b*t)~e, (a*t) “f, (a*t~c)“g, 
(axt“d) “h, (a*t~(c*d)) “4, (a*t ~(d*c~-1)) “7, (axb*t) “1, (a*b*t~c)“n, 
(axb*t ~“d) “0, (axb*t ~(cxd)) “p, (a*xb*t ~(d*c~-1)) “q, (c*t) “r, (d¥t)“s, 
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(cxd*t) “w, ((c¥d~-1) *t) “a, (b*c*t) “y, (b*d*t) “z, (b¥c*d*t) ~v, 
((o*c*d~-1) *t) “u>; 

af #G gt 36 then e,f,g,h,1,5,1,N,0,D,9,7,5,W,0,Y,2,U,U, 
Index (G,sub<Gla,b,c,d>), #G; end if; end for; 


* By use the Lemma: */ 
N12:=Stabiliser(N, (1,2}); 
Ni2; 
/* 
=> (t*t~b) “k=a 
b => (b*t) “m=1 
*/ 
for k,e,f in [0..10] do 
G<a,b,c,d, t>:=Group<a,b,c,d,t/a°2,b°2,c°3,d°3,b-a=b, c“a=c"2,c“b=c, 
d“a=d°2,d~b=d,d~c=d,t~2, (t,a), (t*t~b) “k=a, (a*xc*t¥*t~c)~e, 
(c“2xd*txt “d) “fo; 
k,e,f#G; end for; 


Appendix J 


MAGMA Code for Monomuial 
Progenitor 5 iO” >) 


S:=Sym(8); 

aa:=S! (2, 5)(6, 7); 

bb:=S! (1, 2°03, (4, 5)(6, 
ee:sS! (1, 22, 6)(4, 86, 
ada7=S! (1, 273; 6) Gy 5) (7, 
ee:=S! (1, 4)(2, 5)(3, 86, 
N:=sub<S/aa,bb,cc, dd, ee>; 
CH:=CharacterTable(N) ; 


/*We will look for subgroup of £N£ which have a Faithful 


induce character of N */ 
S:=Subgroups (ND ; 


/* for 4 in [1..#S] do tf #S[i] ‘subgroup eq 8 then i; end if; 


end for; */ 


H:=S[33] ‘subgroup; 

#H; 
ch:=CharacterTable(H) ; 
ch; 

/* I:=Induction(ch[2],N); 
I; 


C4, 4, 0, 0, 0, 0, -4, 0, 0, 0, 0, 0, 0, 4, -4, 0, O) 


Norm(1); 
y 


wrong */ 


I:=Induction(ch[3],N); 


8); 
1); 
8); 
D3 
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I; 

IsFaithful (1); 

Norm(1); 

CH[17] eq I; 

T:=Transversal (N,H); 

T; 

C:=Classes(H); 

G3 

H:=sub<W/(1, 3, 4, 8(2, 6, 5, 1,1, WC, 83, D4, 7D, 
11, 42(2, 5738, (6, >; 

/*We will find all the Matrices*/ 
F:=H; 

C:=CyclotomicField(4); 


A:=[0: 4 in [1..16]]; 

for 4 in [1..4] do tf aa*T[i]~-1 in F then if 

ch[3] (aa*Tli]~-1) eq C.1 

then Ali] :=2; else tf ch[3] (aa*T[t]~-1) eq C.1°3 then Ali] :=3; 
else Alij:= ch[3] (aa*T[i]~-1); end if; end if; end if; end for; 


for «~ in [1..4] do if Tl2]*aa*T[i]“-1 in F then if 

ch[3] (T[2]*aa*Tli]~-1) eq C.1 

then Al[4+i]:=2; else if ch[3] (T[2]*aa*T[i]“-1) eq C.1°3 then 
Al4{+i]:=3; else Al[4{t+i]:= ch[3] (T[2] *aa*T[i]“-1); end tf; 

end if; end i2f; 

end for; 


for «~ in [1..4] do tf T[3]*aa*T[i]“-1 in F then if 

ch[3] (T[3] *aa*Tli]~-1) eq C.1 

then A[8+i]:=2; else if ch[3] (T[3]*aa*T[i]“-1) eq C.1°3 then 
A[8+i]:=3; else 

Al8t+iJ]:= ch[3] (T[3]*aa*T[i]~-1); end if; end if; end if; 

end for; 


for 4 in [1..4] do if Tl4]*aa*T[i]~-1 in F then if 

ch[3] (T[4] *aa*Tli]~-1) eg C.1 

then Al12ti]:=2; else if ch[3] (T[4]*aa*Tli]~-1) eq C.1°3 then 
Al12+i1]:=3; else A[12+i]:= ch[3] (T[4]*aa*T[i]~-1); end tf; 
end if; end wf; end for; 


C:=CyclotomicField(4); 
B:=[0: i in [1..16]]; 
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for 4 in [1..4] do if bb*T[t]7-1 in F then if 

ch[3] (bb*T[i]~-1) eq C.1 

then Bli]:=2; else tf ch[3] (bb*T[t]~-1) eq C.1°3 then Bli] :=3; 
else Bli]:= ch[3] (bb*T[i]~-1); end if; end if; end if; end for; 


for 4 in [1..4] do if T[2]*bb*T[i]~-1 in F then if 

ch[3] (T[2] *bb*T[i]~-1) eq C.1 

then B[4+i]:=2; else if ch[3] (T[2]*bb*T[i]“-1) eq C.1°3 then 
Bl4+i]:=3; else Bl4t+i]:= ch[3] (T[2]*bb*T[i]“-1); end if; end if; 
end if; end for; 


for 4 in [1..4] do if T[3]*bb*T[i]~-1 in F then if 

ch[3] (T[3] *bb*T[i]~-1) eq C.1 

then B[8+i]:=2; else if ch[3] (T[3]*bb*T[i] “-1) eq C.1°3 then 
B[8t+i]:=3; else 

Bl8tij]:= ch[3] (T[3]*bb*T[i]~-1); end if; end if; end if; 

end for; 


for i in [1..4] do tf T[4]*bb*T[i] 7-1 in F then if 

ch[3] (T[4] *bb*T[i]~-1) eq C.1 

then Bl12ti]:=2; else if ch[3] (T[4]*bb*T[i]~-1) eg C.1°3 then 
Bl12+i]:=3; else Bl12+i]:= ch[3] (T[4] *bb*T[i]~-1); end if; 
end if; end 1f; end for; 


C:=CyclotomicField(4); 
CC:=[0: i in [1..16]]; 


for 4 in [1..4] do tf cc*Tli]~-1 in F then if 

ch[3] (ec*Tli]~-1) eq C.1 

then CCl[i]:=2; else if ch[3] (cc*Tli]~-1) eq C.1°3 then CCli] :=3; 
else CCli]:= ch[3] (cc*T[i]~-1); end if; end if; end if; end for; 


for «~ in [1..4] do if Tl2]*cc*Tli]~-1 in F then if 

ch[3] (Tl2]*cc*Tli]~-1) eq C.1 

then CC[4+i]:=2; else if ch[3] (Tl2]*cc*Tlt]~-1) eq C.1°3 then 
CCl4t+i] :=3; else CCl4ti]:= ch[3] (Tl2]*cc*Tli]~-1); end if; 
end if; end z~f; end for; 


for «~ in [1..4] do tf T[3]*cc*Tli]“-1 in F then if 
ch[3] (T[3] *cc*Tli] ~-1) eq C.1 
then CC[8ti]:=2; else if ch[3] (T[3]*cc*Tlt]~-1) eq C.1°3 then 
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CC[8+i]:=3; else 
CCl8t+i] := ch[3] (T[3] *cc*Tli]~-1); end if; end if; end if; 
end for; 


for 4 in [1..4] do tf Tl4]*cc*T[i]~-1 in F then if 

ch[3] (Tl4] *cc*Tli]~-1) eq C.1 

then CC[12+i]:=2; else if ch[3] (TI4]*cc*Tli]~-1) eq C.1°3 then 
CC[12+i] :=3; else CC[12ti]:= ch[3] (T[4]*cc*Tli] ~-1); end if; 
end if; end wf; end for; 


C:=CyclotomicField(4); 
DieslOze 4m T1..cAGlT 5 


for 4 in [1..4] do if dd*T[i]7-1 in F then if 

ch[3] (dd*T[i]“-1) eq C.1 

then D[i]:=2; else tf ch[3] (dd*T[t]~-1) eq C.1°3 then D[i]:=3; 
else D[i]:= ch[3] (dd*T[i]~-1); end if; end if; end if; end for; 


for 4 in [1..4] do if Tl2]*dd*T[i]~-1 in F then if 

ch[3] (T[2] *dd*T[i]~-1) eq C.1 

then D[4+i]:=2; else if ch[3] (T[2]*dd*T[i]“-1) eq C.1°3 then 
D[4+i]:=3; else D[4+i]:= ch[3] (T[2] *dd*T[i]“-1); end tf; 

end if; end wf; end for; 


for 4 in [1..4] do if T[3]*dd*T[i]~-1 in F then if 

ch[3] (T[3] *dd*T[i]~-1) eq C.1 

then D[8+i]:=2; else if ch[3] (T[3]*dd*T[i]“-1) eq C.1°3 then 
D[8t+i]:=3; else 

D[8tiJ]:= ch[3] (T[3]*dd*T[i]“-1); end if; end if; end if; 

end for; 


for i in [1..4] do tf Tl4]*dd*T[i] 7-1 in F then if 

ch[3] (T[4] *dd*T[i]~-1) eq C.1 

then D[12+i]:=2; else if ch[3] (T[4]*dd*T[i]~-1) eq C.1°3 then 
D[12+i]:=3; else D[12+i]:= ch[3] (T[4]*dd*T[i]~-1); end af; 
end if; end wf; end for; 


C:=CyclotomicField(4); 
E:=[0: i in [1..16]]; 
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for 4 in [1..4] do if ee*Tli]~-1 in F then if 

ch[3] (ee*T[i]~-1) eq C.1 

then Eli] :=2; else tf ch[3] (ee*T[t]~-1) eg C.1°3 then Eli] :=3; 
else Elij:= ch[3] (ee*Tl[i]~-1); end if; end if; end if; end for; 


for «~ in [1..4] do if Tl2]*ee*T[i]“-1 in F then if 

ch[3] (T[2]*ee*Tli]~-1) eq C.1 

then E[4+i]:=2; else if ch[3] (T[2]*ee*T[i]~-1) eq C.1°3 then 
E[4{+i]:=3; else E[4{t+i]:= ch[3] (Tl2]*ee*Tli]“-1); end tf; 

end if; end z~f; end for; 


for «~ in [1..4] do if T[3]*ee*T[i]“-1 in F then if 

ch[3] (T[3] *ee*Tli]~-1) eg C.1 

then E[8+i]:=2; else if ch[3] (T[3]*ee*T[i]“-1) eq C.1°3 then 
E[8+i]:=3; else 

E[8tij:= ch[3] (T[3]*ee*xT[i]~-1); end if; end if; end if; 

end for; 


for 4 in [1..4] do if Tl4{]*ee*xT[i]~-1 in F then if 

ch[3] (T[4] *ee*Tli] ~-1) eg C.1 

then E[12ti]:=2; else if ch[3] (T[4]*ee*Tli]~-1) eg C.1°3 then 
El12+i]:=3; else E[12+i]:= ch[3] (T[4]*ee*T[i]“-1); end if; 
end if; end z1f; end for; 


G:=GL(4,5); 

Order (G!A) ;Order(G!B) ; Order (G!CC) ; Order (G!D) ; Order (G!E) ; 
M:=sub<G/A,B,CC,D,E>; 

#M; 

s:=IsIsomorphic (M,N); 

s; 


/* I label the ti’s by (t1,t2,t3,t4,t1°2,t2°2,t3°2,t4°2,..., 
t1°4,t274,t34,t474) start with 1 to 16 to find 
the Monomial Permatations*/ 


S:=Sym(16) ; 

@ar=S) “C1. 2) BIS, 6FCT. BO; 10) G1, 42)(13y. 14) G5, 16); 
bbsaS) C15. 3) G3 16) 5." 6-12) (8, 110-10,“ 8) C18, 15) Cr, 43 
ec:=S! (1, 4)(2, 3005, 8(6, (9, 12) (10, 11) (13, 16) (14, 15); 
dd:=S! (1, 6)(5, 14)(9, 2)(13, 10)(3, 12) (7, 4) (11, 16) (15, 8); 
ee:=S! (1, 13)(5, 9)(2, 14) (6, 10)(3, 15) (7, 11)(4, 16)(8, 12); 
N:=sub<S/aa,bb,cc, dd, ee>; 
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/* Other way to write the matrix */ 


A:=[0: 4 in [1..16]]; 

for « in [1..4] do tf aa*T[i]~-1 in H then %, ch[3] (aa*T[i]~-1); 
end if; end for; 

for « in [1..4] do if Tl2]*aa*T[i]“-1 in H then i, 

ch[3] (T[2] *aa*Tli]~-1); end if; end for; 

for «~ in [1..4] do tf T[3]*aa*T[i]~-1 in H then i, 

ch[3] (T[3] *aa*Tli]~-1); end if; end for; 

for 4 in [1..4] do if Tl4]*aa*T[i]~-1 in H then i, 

chl3] (T[4] *aa*Tli]“-1); end if; end for; 


AtSlO> @ ano Tisct6]7 : 
Af2]:=1; A[5]:=1; A(12]:=1; A[15]:=1; 


G:=GL(4,5); 
Order (G!A); 
aa; 


B:=[0: 4 in [1..16]]; 

for 4 in [1..4] do af bb*T[¢]°-1 in H then i, chl3] (ob*T[i] “-1); 
end if; end for; 

for 4 in [1..4] do if Tl2]*bb*T[i]~-1 in H then i, 

ch[3] (T[2] *bb*Tli]~-1); end if; end for; 

for 4 in [1..4] do if T[3]*bb*T[i]~-1 in H then 1, 

ch[3] (T[3] *bb*Tli]~-1); end if; end for; 

for 4 in [1..4] do if T[4]*bb*T[i] 7-1 in H then i, 

ch[3] (T[4] *bb*T [i] ~-1); end if; end for; 


B:=[0: 4 in [1..16]]; 

B(3]:=1; B8]:=-1; B[9]:=1; Bl14]:=-1; 
G:=GL(4,5); 

Order (G!B); 

bb; 


C:=[0: «4 in [1..16]]; 

for « in [1..4] do tf cc*T[i]~-1 in H then %, ch[3] (cc*T[i]~-1); 
end if; end for; 

for « in [1..4] do if Tl2]*cc*Tli]“-1 in H then i, 

ch[3] (Tl2]*cc*Tli]~-1); end if; end for; 
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for « in [1..4] do if T[3]*cc*Tli]~-1 in H then i, 
ch[3] (T[3] *cc*Tli]~-1); end if; end for; 
for 4 tin [1..4] do if Tl4]*cc*T[i]~-1 in H then i, 
ch[3] (TI4] *cc*Tli] ~-1); end if; end for; 


C:=[0: «4 in [1..16]]; 
Cl4]:=1; Cl7]:=1; Cl10]:=1; Cl13]:=1; 


G:=GL(4,5); 
Order (G!C); 
cc; 


D:=[0: 4 in [1..16]]; 

for 4 in [1..4] do if dd*T[i]~-1 in H then %, ch[3] (dd*T[i]~-1); 
end if; end for; 

for 4 in [1..4] do if Tl2]*dd*T[i]~-1 in H then i, 
ch[3] (Tl2] *dd*T[i]~-1); end if; end for; 

for 4 in [1..4] do if T[3]*dd*T[i]~-1 in H then i, 
ch[3] (T[3] *dd*Tli]~-1); end if; end for; 

for i in [1..4] do tf T[4]*dd*T[i]--1 in H then 4, 
ch[3] (TI4] *dd*Tli]~-1); end if; end for; 

D:=[0: 4 in [1..16]]; 

D(2]:=2; D[5]:=3; D[12]:=3; D[15]:=2; 

G:=GL(4,5); 

Order (G!D); 

dd; 


E:=[0: «4 in [1..16]]; 

for «~ in [1..4] do if ee*T[i]~-1 in H then %, ch[3] (ee*T[i] ~-1); 
end if; end for; 

for «~ in [1..4] do if Tl2]*ee*T[i]“-1 in H then i, 
ch[3] (T[2] *ee*Tli]~-1); end if; end for; 

for « in [1..4] do if T[3]*ee*T[i]“-1 in H then i, 
ch[3] (T[3] *ee*T[i]~-1); end if; end for; 

for 4 in [1..4] do if Tl4]*ee*xT[i]~-1 in H then i, 
ch[3] (T[4] *ee*Tli]~-1); end if; end for; 

E:=[0: «4 in [1..16]]; 

Ef[1]:=-1; E[6]:=-1; E[11]:=-1; E[16]:=-1; 
G:=GL(4,5); 

Order (G!E); 

ee; 

A;B;C;D;E; 


M:=sub<G/A,B,C,D,E>; 
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#M; 


/* I label the tis by (t1,t2,t3,t4,t1°2,t2°2,t3°2,t4°2,..., 
ti $29 
start with 1 to 16 to find the Monomial Permatations*/ 


S:=Sym(16) ; 

aa:=S! (1, 2(3, 4205, O(7, (9, 10) (11, 12) (13, 14) (15, 16); 
bb:=S! (1, 3)(2, 16)(5, (6, 12) (9, 11) (10, 8)(13, 15) (14, 4); 
ec:sS! (1, 4(2, 26, 8(6, (9, 12)(10, 11) (13, 16) (14, 15); 
dd:=S! (1, 6)(5, 14)(9, 2)(138, 10)(8, 12)(7, 4) (11, 16) (15, 8); 
ee:=S! (1, 13)(5, 9)(2, 14) (6, 10)(3, 15) (7, 11) (4, 16)(8, 12); 
N:=sub<S/aa,bb,cc,dd,ee>; 
G<a,b,c,d,e>:=Group<a,b,c,d,e/a°2=b “2=c “2=d “2=e “2=1, b“a=b*e, 
Cc” a=c,c b=c*e, d a=d*e, ad b=d,d°c=d, e a=e, e b=e,e° c=e,e d=e>; 


f,G1,k:=CosetAction(G, sub<G/Id(G)>); 
s:=IsIsomorphic(G1,N); 


s:=IsIsomorphic (M,N); 


/*The set stabilizer in S(5) of the set 
{t1,t1°2,t1°3,t1°4}=1,5,9,13. 
Now continue and write a presentation for the progenitor 


5{\star 4F:N. */ 


Sch:=SchreterSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(M): 4 in [1..12]]; 

for « in [2..32] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Schlt]] do 

tf Eltseq(Schl[iJ) [7] eq 1 then Plj]:=aa; end if; 
tf Eltseq(Schl[iJ]) [7] eq 2 then P[j]:=bb; end if; 
tf Eltseq(Sch[iJ) [7] eq 3 then Plj]:=cc; end if; 
tf Eltseq(Schl[iJ) [7] eq 4 then Plj]:=dd; end if; 
tf Eltseq(Schl[iJ) [7] eq 5 then Plj]:=ee; end if; 
end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[%i] :=PP; 

end for; 

for « in [1..32] do Schli], ArrayP[i]; end for; 


N15913:=Stabiliser(N, {1,5,9,13}); 
N15913; 
J* 
Permutation group N15913 acting on a set of cardinality 16 
Order = 8 =2°3 
(2, 14)(4, 16)(6, 10)(8, 12) 
(15-93) C23 149 033 15). Gy 16), (9) (6; 1O).C7, “11 e312) 
(15-85-48, 9) (2; 10; 1256)8, 1h, 18,0 OG x 8s 165. 12) 
*/ 
/* So the presentation for the monomial progenitord{\star 4}:N 
ts giving by*/ 
G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2=b “2=c “2=d “2=e “2=1,b“a=b*e, 
c”°a=c,c“b=c*e, d a=d*e, d-b=d,d~c=d, e a=e,e b=e,e°c=e,e d=e,t5, 
t*(axc*b)=t, t~(c*b*d)=t“2>; 
/*By adding some relations we got the following*/ 
for h,i in [0..10] do 
G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2=b “2=c “2=d “2=e “2=1,b“a=b*e, 
c”°a=c,c“b=c*e, d a=d*e, d-b=d,d°c=d, e a=e,e b=e,e°c=e,e d=e,t5, 
t*(a*c*bd) =t, t~ (c*d¥*d) =t ~2, (ext *t~(c*e)) “h, ((o*e) *t¥t “d) “4>; 
af #G gt 32 then h,i, Index(G,sub<G/a,b,c,d,e>), #G; end if; 
end for; 
J* 
2 3 900 28800 
*/ 


/* To Verify that our progenitor ts correct: */ 


G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2=b “2=c “2=d “2=e “2=1,b“a=b*e, 
c”°a=c,c“b=c*e, ad a=d*e, d~b=d,d~c=d, e a=e,e b=e,e° c=e,e d=e,t5, 
t*(a*c*d) =t, t~ (c*d¥*d)=t “2, (ext *t ~(c*e)) “2, ((o*e) *t¥*t“d) “3>; 

#G; 


f,G1,k:=CosetAction(G, sub<G/a,b,c,d,e>); 
#G1; 

#k; 
IN:=sub<G1/f (a), f(o),f(c), f(a), fle); 
T:=sub<G1/f (t)>; 

# Normalizer(IN,T); 


/* add more relations*/ 


for g,h,u,r in [0..10] do 

G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2=b “2=c “2=d “2=e “2=1,b“a=b*e, 
c°a=c,c b=c*e, d a=d*e, d-b=d,d°c=d, e a=e,e b=e,e°c=e,e d=e,t5, 
t*(a*c*b)=t, t~(c*b*d)=t “2, (b*¥c*d*t) “g, (axd*e*t) “h, (a*b*c*d*t) ~u, 
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(axc*d*t) “r>; 
tf #G gt 32 then g,h,u,r, Index(G,sub<G/a,b,c,d,e>), #G; end if; 
end for; 


/* add other relations*/ 

for g,h,u,r in [0..10] do 

G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2=b “2=c “2=d “2=e “2=1,b“a=b*e, 

c”“a=c,c“b=c*e, d a=d*e, d~b=d,d°c=d,e a=e,e b=e,e°c=e,e d=e,t5, 
t*(a*c*b)=t, t~(c#b*d)=t “2, (c¥d*t) “g, (axb*d*t) “h, (axb¥d*t ~b) “u, 
(axb*ext) “r>; 

tf #G gt 32 then g,h,u,r, Index(G,sub<G/a,b,c,d,e>), #G; end if; 
end for; 

003 4 900 28800 
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Appendix K 


MAGMA Code for Monomuial 
Progenitor 7 Paes 


S:=Sym(9); 

@a2=81 (2.345 8, by. To. DOE 

bb:=S!(2, 4)(3, 15, 9); 

cce:=S!(2, 4, 5, 9(3, 8, 7, 6); 

dd:=S!(2, 5)(3, (4, 9)(6, 8); 

ee:=S!(1, 2, 5)(3, 6, D4, 8, 1; 

$F 2=8IG- Be Vey 6s 405. 9, S23 
N:=sub<S/aa,bb,cc,dd,ee, ff>; 
CH:=CharacterTable(W) ; 

CH; 

/* To feger the order of the subgroup we will 
see the CH table and we sow 2,8 the order of 
the subgroup has devide the ordre of the group 
so (144 / 2 desn’t give me integer #) but 144/8=18 
so the subgroup has to be of ordr 18*/ 


/* S:=Subgroups (MN) ; 

for «~ in [1..#8] do if #S[i] ‘subgroup eq 18 then i; end if; 
end for; 

H:=S[22] ‘subgroup; 

#H; 

ch:=CharacterTable(H); 

ch; 

I:=Induction(ch[4],N); 

T; 

IsFaithful (1; 


Because the (I) not Faithful we will try other 


subgroup with other order */ 


S:=Subgroups (ND ; 
for «~ in [1..#8] do if #S[i] ‘subgroup eq 18 then i; 


end for; 


H:=S[17] ‘subgroup; 


#H; 


ch:=CharacterTable(H) ; 


ch; 


I:=Induction(ch[3],N); 


I; 


IsFaithful (1); 


Norm(1); 
CH[9] eq I; 


T:=Transversal (N,H); 


Ly 


/* G=He U H(2, 3, 4, 8, 5, 7, 9, 6) 
(3, 8, 7, GE UAC, 503, NG, 

H(2, 7, 5, 34, 8, 9, 6) U H(2, 7, 

» 9, BP UAC, 9, 5, 4)(3, 6, 7, 8) 

H(2, 6, 9, 7, 5, 8, 4, 2, 

So there are 8 tis and each one has 


A:=[0: 4 in [1..64]]; 


UH, 4, 5, 9) 


9(6, 8) U 
4, 6, 5, 3 
U 


6 degrees */ 


for «~ in [1..8] do tf aa*T[i]*~-1 in H then 
Ali]:= ch[3] (aa*T[i]~-1); end if; end for; 
for « in [1..8] do if Tl2]*aa*T[i]“-1 in H then 


Al8+i]:= ch[3] (T[2]*aa*T[i]~-1); end if; end for; 


for «~ in [1..8] do if T[3]*aa*T[i]~-1 in H then 


A[16+i]:= ch[3] (T[3] *aa*T[i]~-1); end if; end for; 


for 4 in [1..8] do if Tl4]*aa*T[i]~-1 in H then 


Al24t+i]:= ch[3] (T[4] *aa*T[i]“-1); end if; end for; 


for 4 in [1..8] do if Tl5]*aa*T[i]~-1 in H then 


A[32+i]:= ch[3] (T[5] *aa*T[i]~-1); end 


for «~ in [1..8] do if T[6]*aa*T[i]“-1 in H then 


A[40+4] := chl3] (T[6] *aa*Tli]~-1); end if; end for; 


for «4 in [1..8] do if T[7]*aa*T[i]~-1 in H then 


A[48+i] := ch[3] (T[7] *aa*Tli]“-1); end if; end for; 


for 4 in [1..8] do if Tl[8]*aa*T[i]~-1 in H then 


A[56+i] := ch[3] (T[8] *aa*T[i]~-1); end 


A; 


A:=[0: 4 in [1..64]]; 


af; end for; 


af; end for; 


end if; 
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Af2]:=1; Af11]:=1;A[21]:=1; A[30]:=1;A[36]:=1; 


A[47] :=1;A[56] :=1; A[57]:=1; 
G:=GL(8,7); 

Order (G!A); 

aa; 


B:=[0: «@ in [1..64]]; 

for 4 in [1..8] do if bb*T[i]~-1 in H 
Bli]:= ch[3] (bb*T[i]~-1); end if; end 
for 4 in [1..8] do if T[2]*bb*T [i] ~-1 


then 
for; 
an H then 


Bl8t+iJ]:= ch[3] (T[2]*bb*T[t]~-1); end if; end for; 


for 4 in [1..8] do +f T[3]*bb*T [i] ~-1 
B[16+%]:= ch[3] (T[3] *bb*T[i]~-1); end 
for 4 in [1..8] do if TI4]*bb*T [i] ~-1 
Bl24t+i] := ch[3] (T[4] *bb*T [i] ~-1); end 
for 4 in [1..8] do if T[5]*bb*T [i] ~-1 
B[32+i]:= ch[3] (T[5]*bb*T[i]~-1); end 
for 4 in [1..8] do if T[6]*bb*T [i] ~-1 
B[40+4] := ch[3] (T[6] *bb*T[i] ~-1); end 
for 4 in [1..8] do if TI7]*bb*T [i] ~-1 
Bl48+i]:= ch[3] (TI7] *bb*T[i] ~-1); end 
for 4 in [1..8] do if T[8]*bb*T [i] ~-1 
Bl[56+i] := chl3] (T[8] *bb+*T[i]~-1); end 
B; 

B:=[0: « in [1..64]]; 


Blij:=1; Bf13]:=1; Bl23]:=1; Bl28]:=1; 


B(48]:=1; B[51]:=1; B[62]:=1; 
G:=GL(8,7); 

Order (G!B); 

bb; 


C:=[0: 4 in [1..64]]; 
for i in [1..8] do if cc*Tli]~-1 in H 


an H then 
af; end for; 
an H then 
af; end for; 
an H then 
af; end for; 
an H then 
af; end for; 
an H then 
af; end for; 
an H then 
af; end for; 


B34] :=1; 


then 


Cli] := ch[3] (cc*Tli]~-1); end tf; end for; 


for « in [1..8] do tf Tl2]*cc*T[i] ~-1 


an H then 


Cl8t+i]:= chl3] (Tl2] *cc*Tli]~-1); end if; end for; 


for « in [1..8] do tf T[3]*cc*T[i] ~-1 
Cl16+¢] := ch[3] (T[3] *cc*T[i] ~-1); end 
for «4 in [1..8] do if Tl4]*cc*T[i] ~-1 
Cla4ti]:= chl[3] (Tl4] *cc*Tli] ~-1); end 
for «4 in [1..8] do if Tl5]*cc*T[i] ~-1 
C[32+i] := ch[3] (T[5] *cc*Tl[ti] ~-1); end 


an H then 
af; end for; 
an H then 
af; end for; 
an H then 
af; end for; 


Jfor 4 in [1..8] do if T[6]*cc*T[i]~-1 in H then 


CL40+i] := chl3] (T[6] *cc*T[i] ~-1); end 


af; end for; 
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for « in [1..8] do tf T[7]*cc*T[i] ~-1 
CL48+i] := chl[3] (T[7] *cc*T[i] ~-1); end 
for « in [1..8] do tf T[8]*cc*T[i] ~-1 
C[56+4] := ch[3] (T[8] *cc*T[i] ~-1); end 
C; 

C:=[0: 4 in [1..64]]; 


C[3]:=1; Cl13]:=1; Cl20]:=1; C[31]:=1; 


C48] :=1; Cl49]:=1; C58] :=1; 
G:=GL(8,7); 
Order (G!C); 
cc; 


D:=[0: 4 in [1..64]]; 


an H then 
af; end for; 
an H then 
af; end for; 


Cl38] :=1; 


for 7 in [1..8] do af dd*T[i]~-1 in H then 
Dli]:= ch[3] (dd*T[i]~-1); end if; end for; 


for 4 in [1..8] do if T[2]*dd*T[i] 7-1 


an H then 


D[8+iJ]:= ch[3] (T[2]*dd*T[i]~-1); end if; end for; 


for i in [1..8] do if T[3]*dd*T[i] 7-1 
D[16+i]:= ch[3] (T[3] *dd*T[i]~-1); end 
for i in [1..8] do if Tl4]*dd*T[i] 7-1 
D[24+i]:= ch[3] (T[4] *dd*T[i]“-1); end 
for i in [1..8] do if T[5]*dd*T[i] 7-1 
D[32+i] := ch[3] (T[5] *dd*T[i]~-1); end 
for i in [1..8] do if T[6]*dd*T[i] ~-1 
D[40+i]:= ch[3] (T[6]*dd*T[i]~-1); end 
for i in [1..8] do if T[7]*dd*T[i] ~-1 
D[48+i] := ch[3] (T[7] *dd*T[i]~-1); end 
for i in [1..8] do if T[8]*dd*T[i] 7-1 
D[56+i] := ch[3] (T[8] *dd*T[i]~-1); end 
D; 

D:=[0: « in [1..64]]; 


D4] :=1; D[14]:=1; D[23]:=1; D[25]:=1; 


D(42]:=1; D[51]:=1; D[61]:=1; 
G:=GL(8,7); 
Order (G!D); 
dd; 


E:=[0: « in [1..64]]; 

for «4 in [1..8] do if eexT[i]~-1 in H 
ch[3] (ee*T[i]~-1); end if; end for; 
for « in [1..8] do if Tl2]*ee*T[i] ~-1 


an H then 
af; end for; 
an H then 
af; end for; 
an H then 
af; end for; 
an H then 
af; end for; 
an H then 
af; end for; 
an H then 
af; end for; 


D[40] :=1; 


then 2, 


an H then 2, 


ch[3] (T[2] *ee*Tli]~-1); end if; end for; 


for « in [1..8] do tf T[3]*ee*T[i] ~-1 


an H then 2, 


ch[3] (T[3] *ee*T[i]~-1); end if; end for; 
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for «~ in [1..8] do if Tl4]*ee*T[i]“-1 in H then 
ch[3] (T[4] *ee*Tli]~-1); end if; end for; 
for 4 in [1..8] do if T[5]*ee*xT[i]~-1 in H then 
ch[3] (T[5] *ee*Tli]~-1); end if; end for; 
for «~ in [1..8] do if T[6]*ee*T[i]“-1 in H then 
ch[3] (T[6]*ee*Tli]~-1); end if; end for; 
for i in [1..8] do if T[7]*ee*xT[i]~-1 in H then 
ch[3] (T[7] *ee*T li] ~-1); end if; end for; 
for 4 in [1..8] do if T[8]*ee*xT[i]~-1 in H then 
ch[3] (T[8] *ee*Tli]~-1); end if; end for; 


E:=[0: 4 in [1..64]]; 


Efij:=4; E[10]:=4; E[19]:=2; E[28]:=2; E[37]:=1; 


E(46]:=2; E[55]:=4; E[64]:=1; 
G:=GL (8,7); 
Order (G!E); 
ee; 


F:=[0: «4 in [1..64]]; 

for 4 in [1..8] do if ff*T[] 7-1 in H then i, 
chl3] (ff*Tli]~-1); end if; end for; 

for 4 in [1..8] do if Tl2]*ff*T[i]~-1 in H then 
ch[3] (Tl2]*ff*Tli]~-1); end if; end for; 

for 4 in [1..8] do +f T[3]*ff*T[i]~-1 in H then 
ch[3] (T(3] *ff*Tli]~-1); end if; end for; 

for 4 in [1..8] do if TI4J*ff*Tli]“-1 in H then 
chl3] (TI4] *ff*Tli]~-1); end if; end for; 

for 4 in [1..8] do if T[5]*ff*T[i]~-1 in H then 
chl3] (T(5] *ff*Tli]~-1); end if; end for; 

for 4 in [1..8] do if TI6]*ff*T[i]~-1 in H then 
chl[3] (Tl6]*ff*Tli]~-1); end if; end for; 

for 4 in [1..8] do if TI7]*ff*Tli]~“-1 in H then 
chl3] (TI7] *ff*Tli]~-1); end if; end for; 

for 4 in [1..8] do if T[8]*ff*Tli]~-1 in H then 
chl3] (T(8]*ff*Tli]~-1); end if; end for; 

F; 
F:=[0: «4 in [1..64]]; 


Flij:=1; F[10]:=4; F[19]:=4; Fl[28]:=1; F[37]:=2; 


F[55]:=2; F[64]:=4; 
G:=GL(8,7); 
Order (G!F); 
ff 


A;B;C;D;E;F; 
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M:=sub<G/A,B,C,D,F>; 
#M; 


/* I label the tis by (t1,t2,t3,t4,t5,t6,t7,t8,t1°2,t2°2,..., 
t1°6,t2°6,t3°6,t4°6,t5°6,t6°6,t7°6,t8°6) start with 1 to 64 */ 


S:=Sym(48) ; 
aa:=S!(1,2,3,5,4,6, 7,8) (9,10, 11,13, 12, 14,15, 16) (17, 18, 19,21, 20 
» 22,23, 24) (25, 26,27, 29, 28, 30, 31, 32) (33, 34,35, 37, 36,38, 39,40) 
(ZiI2, 2845522, 26 9 ho) 3 

bb:=S!(2, 5)(3, (6, 8)(10, 13) (11, 15) (14, 16) (18, 21) (19, 23) 
(22, 24)(26, 29) (27, 31)(30, 32) (34, 37) (35, 39)(38, 40) 

C2, 48) G3, 427) G6, 48); 

cer=S!(1, 3, 4, DC, 5; 6, 8)(9, 11, 12, 15)(10, 13, 14, 16) 
(17, 19, 20, 23)(18, 21, 22, 24) (25, 27, 28, 31) (26, 29, 

303: BB) (89, 35; 865° 39).(84, 87, 38, JO) G13. £33. 22 27) 

(42,45, 16, 48); 

dd:=S!(1, 4)(2, 6)(3, 1(5, 8)(9, 12) (10, 14) (11, 15) (13, 16) 
(17, 20) (18, 22) (19, 23) (21, 24)(25, 28)(26, 30) (27, 31) 

(29, 32)(33, 36) (34, 38)(35, 39)(37, 40) (41, 44) (42, 46) 

(43, 40 (45, 48); 

ee:=S!(1, 25, 9)(2, 26, 10)(3, 11, 27) (4, 12, 28)(6, 14, 30) 
CTs Bly, PSKAT, BB; AI C16, Ses. AQ)19. 43; G5) (20. 2A 

, 36)(22, 46, 38) (23, 39, 47); 

ff:=8!(2, 26, 10)(3, 27, 11)(5, 13, 29)(6, 14, 30)(7, 15, 31) 
(8, 32,.. 16) 8, 34, 42):419, 35, 43) (21, 45; 87) (22,. 46, 

38) (23, 47, 39) (24, 40, 48); 

N:=sub<S/aa,bb,cc,dd,ee,ff>; 


G<a,b,c,d,e, f>:=Group<a,b,c,d,e,f/a~8,b°2,c4,d°2,e°3,f 73, (e,f), 
a“2=c,c 2=d, b“a=b*c*d, c-a=c,c“b=cx*d, d-a=d,d“b=d,d°c=d,ea=f, 
e~b=e* (f 72), e-c=e*(f 72), e"d=e 2, fa=e*(f-2), f*b=f 2, 

fc=(e°2) *(f 2), f d=f "2, f “e=f>; 

#G; 

f,G1,k:=CosetAction(G, sub<G/Id(G)>); 

s:=IsIsomorphic(G1,N); 

s; 

s:=IsIsomorphic (M,N); 

s; 

/* the set stabilizer in S(7) of the set 
{t1,t1°2,t1°3,t174,t1°5,t1°6}=1,9,17,25,33,41,49,57 

Now continue and write a presentation for 

the progenitor 7°{\star 8}:N.+*/ 
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Sch:=SchreterSystem(G, sub<G/Id(G)>); 

ArrayP:=[Id(N): 4 in [1..144]]; 

for « in [2..144] do 

P:=[Id(N): 1 in [1..#Sch[i]]]; 

for j in [1..#Schlt]] do 

tf Eltseq(Schl[i]) [7] eq 1 then P[j]:=aa; end if; 

tf Eltseq(SchliJ) [7] eq -1 then Plj]:=aa~-1; end if; 
tf Eltseq(Schl[i]) [7] eq 2 then P[j]:=bb; end if; 

tf Eltseq(SchliJ) [7] eq 3 then Plj]:=cc; end if; 

af Eltseq(Schli]) [7] eq -3 then Plj]:=cc*-1; end if; 
tf Eltsegq(Sch[iJ) [7] eq 4 then Plj]:=dd; end if; 

tf Eltseq(SchliJ) [7] eq 5 then Plj]:=ee; end if; 

tf Eltseq(Schli]) [7] eq -5 then Plj]:=ee"-1; end if; 
tf Eltsegq(Schl[iJ) [7] eq 6 then Plj]:=ff; end if; 

tf Eltseq(SchliJ) [7] eq -6 then Plj]:=ff*-1; end if; 
end for; 

PP:=Id(N); 

for k in [1..#P] do 

PP:=PP*P[k]; end for; 

ArrayP[%i] :=PP; 

end for; 

for « in [1..144] do Schli], ArrayPli]; end for; 
N1917253341:=Stabiliser(N, (1,9,17,25,33,41}); 
N1917253341; 

Orbits (Stabiliser(N, {1,9,17,25,33,41})); 

for g in N do tif 2°g eq 29 then g; end if; end for; 


/* So the presentation for the monomial progenitor 
7-{\star 8F:N is giving by*/ 
G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a°8,b°2,c4,da°2, 
e°3,f°3, (Ce, f),a°2=c,c2=d, b“a=b*cx*d, c“a=c, c“b=c*d, d“a=d, 
d“b=d,d“c=d,e“a=f,e~b=er*(f 2), e-c=e*(f 2), e°d=e2, 
fa=ex*(f°2), f “b=f 2, f“c=(e"2) *(f “2), f “d=f 2, f-e=f,t~7, 
t*(bJ=t, t* (o*f “-1)=t, (t-e)=t 74>; 


/* To Verify that your progenitor is correct: */ 


G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a°8,b°2,c4,a°2, 
e°3,f°3, (e,f),a°2=c,c“2=d, b “a=b*cx*d, c“a=c, c“b=c*d, d“a=d, 
d“b=d,d~c=d, ea=f,e~b=ex(f 2), e-c=e*(f 2), e°d=e2, 
fa=ex(f°2), fb=f 72, f-c=(e°2) *(f 72), fd=f 72, f7e=f, t°7, 
t-(b)=t, t~(b*f--1)=t, t*e=t 4, (t, ta), (t,t7c), (t, td), 
(t,t*(a*d))>; 

#G; 
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V:=CosetSpace(G, sub<G/a,b,c,d,e,f>: CosetLimit :=10000000, 
Hard:=true, Print:=1); 

G:=CosetImage(V); 

print Index(G,sub<G/a,b,c,d,e,f>: CosetLimit:=5°10, 
Hard:=true, Print:=2); 

f,.G1,k:=CosetAction(G, sub<G/a,b,c,d,e,f>); 

#G1; 

#k; 

IN:=sub<G1/f (a), f(o),f(c),f(@), fle), fCf); 
T:=sub<G1/f (t)>; 

# Normalizer(IN,T); 


/* Add relation to G */ 


for k,g,m in [0..10] do 
G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a°8,b°2,c4,d°2 
,€0°3,f°3, (e,f),a°2=c, c“2=d, b “a=b*c*d, c“a=c,c“b=cxd, 
d-a=d,d~b=d,d~c=d, e“a=f,e b=e*(f 2), e~c=ex(f 2), e"d=e2, 
f°a=e*(f°2), f “b=f "2, f°c=(e"2)*(f 2), f “d=f 2, f°e=f,t~7, 
t*(b)=t, t* (bef 7-1) =t, te=t “4, (t, ta), (t,t7c), (t,t 7d), 
(t,t (axd)), (exb*t~e) “k, (att) ~g, (a*d*t ~e) “m>; 

af #G gt 144 then k,g,m, Index(G,sub<G/a,b,c,d,e,f>), 
#G; end if; end for; 


/* Add relation to G */ 


for k,g,m in [0..10] do 
G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a°8,b°2,c"4,da°2, 
e°3,f°3, (e,f),a°2=c,c2=d, b“a=b*cx*d, c“a=c, c“b=c*d, d-a=d, 
d“b=d,d~c=d,e“a=f,e~b=ex(f 2), e-c=e*(f"2),e-d=e2, 
fa=e*(f°2), f “b=f "2, f°c=(e"2)*(f 2), f “d=f 2, f° e=f,t~7, 
t*(b)=t, t*(b¥f--1)=t, te=t 7-4, (t, 7a), (t,t7c), (t, td), 
(t,t (a*d)), (c4*t a) “k, (d*b*t) “g, (d*b¥*t“a) “m; 
af #G gt 144 then k,g,m, Index(G,sub<G/a,b,c,d,e,f>), 
#G; end if; end for; 
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Appendix L 


MAGMA Code for Monomial 
Progenitor 38° i OS) 


S:=Sym(10) ; 

aa:=S! (1, 2(3, 5, D6, 9)(8, 10); 
bb:=S! (1, 3, 6, 10, W(2, 4, 8, 9, 5); 
cce:=S! (1, 20°05, 7D; 

dd:=S! (3, 4)(5, 1); 

ee:=S! (1, 203, 4205, (6, 8); 
ff:=5! (5, D9, 10); 
N:=sub<S/aa,bb,cc,dd,ff>; 

#N; 


CH:=CharacterTable(N) ; 
CH; 


S:=Subgroups (N) ; 

for « in [1..#8] do if #S[i] ‘subgroup eq 32 then i; 
end if; end for; H:=S[41] ‘subgroup; 
#H; 

ch:=CharacterTable(H) ; 

ch; 

I:=Induction(ch[2],N); 

I; 

IsFaithful (1); 

Norm(1); 

CH[6] eq I; 

T:=Transversal (N,4H); 

T; 


fe = He. HS, 6, 10; “1)s- 4583-9 SPU As 63 “Fe 85-10) 
(2, 8, 5, 4, 9) UHC, 7, 10, 6, 3)(2, 5, 9, 8, 4) U 
HCL AO ye By Vg. OIA Oy By By. 8) 
So there are 5 tis and each one has 3 pours */ 


A:=[0: «4 in [1..25]]; 

for « in [1..5] do tf aa*T[i]“-1 in H then ti, ch[2] (aatT[i]~-1); 
end if; end for; 

for «~ in [1..5] do if Tl2]*aa*T[i]“-1 in H then i, 
ch[2] (T[2] *aa*Tli]~-1); end if; end for; 

for «~ in [1..5] do if T[3]*aa*T[i]“-1 in H then i, 
ch[2] (T[3] *aa*Tli]~-1); end if; end for; 

for «~ in [1..5] do if Tl4]*aa*T[i]~-1 in H then i, 
chl2] (T[4] *aa*Tli]~-1); end if; end for; 

for «~ in [1..5] do if T[5]*aa*T[i]“-1 in H then i, 
ch[2] (T[5] *aa*Tli]~-1); end if; end for; 

A:=[0: «4 in [1..25]]; 

Afa2]:=1; Af6]:=1; Al14]:=1; A[18]:=1; A[25]:=1; 
G:=GL (5,3); 

Order (G!A); 

aa; 

B:=[0: «4 in [1..25]]; 

for i in [1..5] do if bb*T[i]~-1 in H then iz, 
ch[2] (bb*Tli]~-1); end if; end for; 

for 4 in [1..5] do if Tl2]*bb*T[i]~-1 in H then i, 
ch[2] (T[2] *bb*Tli]~-1); end if; end for; 

for «4 in [1..5] do if T[3]*bb*T[i]~-1 in H then i, 
ch[2] (T[3] *bb*Tli]~-1); end if; end for; 

for 4 in [1..5] do if Tl4]*bb*T[t]~-1 in H then i, 
chl2] (T[4] *bb*T [i] ~-1); end if; end for; 

for «4 tin [1..5] do if T[5]*bb*T[i]~-1 in H then i, c 
hl2] (T[5] *bb*T[i]~-1); end if; end for; 

B:=[0: «4 in [1..25]]; 

Bl2]:=1; B8]:=1; Bl15]:=1; Bl16]:=1; Bl24]:=1; 
G:=GL (5,3); 

Order (G!B); 

bb; 

C:=[0: «4 in [1..25]]; 

for «~ in [1..5] do if cc*T[i]~-1 in H then i, 
ch[2] (ec*Tli]~-1); end if; end for; 

for «~ in [1..5] do if Tl2]*cc*Tli]~-1 in H then i, 
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ch[2] (T[2] *cc*Tli]~-1); end if; end for; 

for « in [1..5] do if T[3]*cc*Tli]~-1 in H then i, 
ch[2] (T[3] *cc*Tli] ~-1); end if; end for; 

for « in [1..5] do if Tl4]*cc*Tli]“-1 in H then i, 
chl2] (TI4]*cc*Tli]~-1); end if; end for; 

for «~ in [1..5] do if T[5]*cc*T[i]“-1 in H then i, 
ch[2] (T[5] *cc*Tli]~-1); end if; end for; 

Crl0s ¢ in ft 3254 & 

Clilest; Cl] +=-1;  Cligj s=-1; Clg] :=-1; C25] :=-1; 
G:=GL(5,3); 

Order (G!C); 

cc; 

D:=[0: «4 in [1..25]]; 

for 4 in [1..5] do if dd*T[i]~-1 in H then i, 
ch[2] (dd*T[i]~-1); end if; end for; 

for 4 in [1..5] do if Tl2]*dd*T[i]~-1 in H then i, 
ch[2] (Tl2] *dd*T[i]~-1); end if; end for; 

for 4 in [1..5] do if T[3]*dd*T[i]~-1 in H then i, 
ch[2] (T[3] *dd*T[i]~-1); end if; end for; 

for 4 in [1..5] do if Tl4]*dd*T[i]~-1 in H then i, 
ch[2] (T[4] *dd*T[i]~-1); end if; end for; 

for «4 in [1..5] do if T[5]*dd*T[i]~-1 in H then i, 
ch[2] (T[5] *dd*T[i]~-1); end if; end for; 

D:=[0: 4 in [1..25]]; 

D[ij:=-1; D[7]:=-1; D[13]:=1; D[19]:=1; D[25]:=1; 
G:=GL(5,3); 

Order (G!D); 

dd; 

E:=[0: «4 in [1..25]]; 

for «~ in [1..5] do if ee*T[i]~-1 in H then i, 
ch[2] (ee+T[i]~-1); end if; end for; 

for « in [1..5] do if Tl2]*ee*T[i]“-1 in H then i, 
ch[2] (T[2] *ee*Tli]~-1); end if; end for; 

for «~ in [1..5] do if T[3]*ee*T[i]“-1 in H then i, 
ch[2] (T[3] *ee*T[i]~-1); end if; end for; 

for «~ in [1..5] do if Tl4]*ee*T[i]“-1 in H then i, 
chl2] (T[4]*ee*T[i]~-1); end if; end for; 

for « in [1..5] do if T[5]*ee*T[i]“-1 in H then i, 
ch[2] (T[5] *ee*Tli]~-1); end if; end for; 

E:=[0: «4 in [1..25]]; 

E[1]:=-1; E[7]:=1; E[13]:=-1; E[19]:=1; E[25]:=1; 
G:=GL (5,3); 
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Order (G!E); 

ee; 

F:=[0: «4 in [1..25]]; 

for 4 in [1..5] do if ff*T[i]7-1 in H then i, 
chl2] (ff*Tli]~-1); end if; end for; 

for 4 in [1..5] do +f Tl2]*ff*T[i]~-1 in H then 4, 
chla] (Tla]*ff*Tli]~-1); end if; end for; 

for 4 in [1..5] do if T[3]*ff*T[i]~-1 in H then 4, 
ch[2] (T(3] *ff*Tli]~-1); end if; end for; 

for 4 in [1..5] do if TIA] *ff*T[i]~-1 in H then 4, 
chl2] (TI4] *ff*Tli] ~-1); end if; end for; 

for 4 in [1..5] do if T[5]*ff*T[i]~-1 in H then 4, 
chl2] (TS) *ff*Tli]~-1); end if; end for; 

F:=[0: «4 in [1..25]]; 

F[1]:=-1; F[7]:=-1; F[13]:=-1; F[19]:=1; F[25]:=-1; 

G:=GL (5,3); 

Order (G!F); 

ffi 


A;B;C;D;E;F; 

M:=sub<G/A,B,C,D,E,F>; 

#M; 

/* I label the tis by (t1,t2,t3,t4,t5,t1°2,t2°2,t3°2, 
t4°2,t5°2, t1°3,t2°3,t3°3,t4°3,t5°3) start with 1 to 15 */ 


S:=Sym(15) ; 

aa:=S! (1, 2)(3, 4)(6, N(8, 9); 

bb:=S! (1, 2, 3, 5, 4)(6, 7, 8, 10, 9); 

cece:=S! (2, (3, 84, 9)(5, 10); 

dd:=S! (1, 6)(2, 7); 

ee:=S! (1, 603, 8); 

nn:=S! (1, 6)(2, 7) (3, 8)(5, 10); 

N:=sub<S/aa,bb,cc, dd,ee,nn>; 
G<a,b,c,d,e,n>:=Group<a,b,c,d,e,n/a°2,b°5,c°2,d4°2,e°2, 
n°2,b0°a=b"4,c a=c*d, c~b=c*d, d-a=d, d~b=d*e, d~c=d, e a=c*d*¥n, 
e b=ex*n, e c=e, e d=e,n a=c*e,n b=c,n° c=n, n° d=n,n°e=n>; 
#G; 

f,G1,k:=CosetAction(G, sub<G/Id(G)>); 
s:=IsIsomorphic(G1,N); 

s; 

s:=IsIsomorphic (M,N); 

s; 

/* the set stabilizer in S(3) of the set {t1,t1°2}=1,6 


Now continue and write a presentation for 
the progenitor 3°{\star 5}:N.*/ 
Sch:=SchretierSystem(G, sub<G/Id(G)>); 
ArrayP:=[Id(NM): 4 in [1..160]]; 


for « in [2..160] do 


P:=[Id(M): 1 in [1..#Sch[4]]]; 


for j in [1..#Schlt]] do 


tf Eltseq(SchliJ) [7] 
tf Eltseq(Schlij) [7] 
tf Eltseq(Schlij) [7] 
tf Eltseq(Schlij) [7] 
tf Eltseq(SchliJ) [7] 
tf Eltseq(Schlij) [7] 
tf Eltseq(Schlij) [7] 


end for; 


PP:=Id(N); 
for k in [1..#P] do 
PP:=PP*P[k]; end for; 


ArrayP[%i] :=PP; 


end for; 


eq 1 then P[q]: 
eq 2 then Plj]: 
eq -2 then Plj]:=bb~-1; 
eq 3 then P[j]: 
eq 4 then P[47]:= 
eq 5 then P[q]: 
eq 6 then P[q]: 


end 


> end 


end 


; end 


end 
end 


of; 
of; 


end if; 


of; 
of; 
tf; 
of; 


for «~ in [1..160] do Sch[i], ArrayPli]; end for; 
N16:=Stabiliser(N, (1, 6}); 


Permutation group N16 acting on a set of cardinality 15 
32=2 


N16; 

J* 

Order = 
(3, 
(2, 
(4; 
(2, 
(1, 

*/ 


8) (5, 
(5, 
9) (5, 
4) (8, 
6) (5, 


i) 
10) 
10) 
10) 
10) (5, 8)(7%, 9) 
10) 


for « in [1..160] do 


af ArrayPli] eq N!.. 


/* So the presentation for the monomial 
progenitor3“{\star 5}:N is giving by */ 
G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a°2,b°5,c°2,d°2,e°2, 
f°2,b°a=b"4,c°a=c#d, c~b=cx*d, d-a=d,d“b=d*e, d~c=d, e-a=c*d*f, 
e b=e*f,e~c=e,e d=e, f-a=cxe, f-b=c, f° c=f, f d=f, f°e=f,t 73, 


then Sch[i]; end if; end for; 


t*(c*d*e)=t,t~(d*f)=t, t~ (exf)=t, t*(a*xc*(b~-1) *d)=t, 
t*(d*exf)=t“2>; 


/* To Verify that your progenitor is correct: */ 
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Orbits (Stabiliser(N, f1,6})); 

G<a,b,c,d,e,n, t>:=Group<a,b,c,d,e,n,t/a°2,b°5,c°2,da°2, 
e°2,n°2,b°a=b"4,c a=c*d, c“b=c*d, d-a=d, d~b=d*e,d~c=d, 
e a=c*d*n, e b=exn, e c=e, e d=e,n a=c*e,n b=c,n°c=n, 
n-d=n,n-e=n,t73,t~(c*d*e)=t, t* (den)=t, t* (e*n)=t, 
t*(a*c*b ~-1*d)=t, t* (d*exn)=t “2, (t, ta), (t, t* (a*bd))>; 
#G; 

f,.G1,k:=CosetAction(G, sub<G/a,b,c,d,e,n>); 

#G1; 

#k; 

IN:=sub<G1/f(a), flo), ,fCd,f(@, fle), f(m>; 

#IN; 

T:=sub<G1/f (t)>; 

#T; 

# Normalizer(IN,T); 
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Appendix M 


MAGMA Code for Isomorphism 
Type of 2° : eL(8) 


/* Consider the subgroup G1 of S_8 below. 
We will show that N is tsomorphic to the mized extension of 
2°8 by L_2(8).*/ 


S:=Sym(8); 

aa:=S! (2, 5)(6, 7); 

boc=ao! (14-2008, DG, 5) 6; 2) 

ces=S! (C1, 3G; 6); -8) (6, De 

aa:=S! (1, 203, 6) GC; 5) (7%. 6)s 

ee:=S! (1, 4)(2, 5)(3, 86, 7); 

N:=sub<S/aa,bb,cc,dd,ee>; 

G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2,b°2,c°2,d°2,e°2,b“a=b*e, 
Cc” a=c,c b=c*e, d a=d*e, ad b=d, d°c=d, e a=e, e b=e,e°c=e,e d=e,t2, 
(t,a), (t, o*d), (a*xd*e*t) “3, (a*xd¥*c*d*t) ~7, (axc¥d*t) “9>; 
f,G1,k:=CosetAction(G, sub<G/a,b,c,d,e>); 

#G1, #k; 

CompositionFactors (G1); 

/* We will find the Isomorphism type of G1 = 129024 */ 
Center (G1); 

NL:=NormalLattice (G1); 

NL; 

/* We will search for the largest Abelian subgroup of G1, 
NL[i], using the normal subgroup lattice NL */ 


for «4 in [1..11] do if TsAbelian(NL[i]) then i; end if; end for; 
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/* Thus, NL[6] is the largest Abelian subgroup of G1. 
We factor G1 by NML[6],and call it q. 
Since Center(G1) < NL[6], G1 is a mized extension of NL[6] by 
q, the factor group G1/NL[6]. We now find tsomorphism types 
and presentations of NL[6] and q. */ 
/* We show below that NL[6] is tsomorphic to 2°8 */ 
NL [6] ; 
m:=AbelianGroup (GrpPerm, [2,2,2,2,2,2,2,2]); 
s:=IsIsomorphic(m, NL[6]); 
s; 
/* true */ 
/* NL[6]=2°8 ts generated by z,y,Z,w,u,v,k and r given below. */ 


NL[6] eq sub<NL[6]/NL[6].1,NL[6].2,NL[6].3,NL[6].4,NL[6].5, 
NL[6].6,NL[6].7,NL[6].8>; 

:=G1!NL[6] .1; 

:=G1!NL[6].2; 

:=G1!NL[6].3; 

:=G1!NL[6].4; 

:=G1!NL[6].5; 

:=G1!NL[6].6; 

:=G1!NL[6] .7; 

:=G1!NL[6].8; 

/* A presentation of NL[6] is {x,y,z,u,u,v,k,r/2°2,y 2, 
2°2,w°2,u°2,u°2,k°2,r°2, (x,y), (2,2), (2,w), (2, u), (2, uv), 
(2,k), (2,7), (y,2),(y,w, (yw, (y,uv),4,kb), yr), Zw, 
(z,u), (z,u), (2,k), (2,7), (w,w), (u,v), (u,k), (w,r), (u,v), 
(u,k), (u,r), vk), (u,r), (kr) }. #/ 

/* We factor G1 by NI[6] and find the generators of q 
a presentation for q.*/ 
H<a,y,2,w,u,v,k,r>:=Group<z,y,2,w,u,v,k, r/2°2,y 2, 2°72, 
w°2,u°2,u°2,k°2,2°2,y°2,2°2,w°2,u°2,u°2,k°2,r°2, (zy), 
CD29 9 (OW) Cla) (By Us (ERD ABST) 5 YG SAY, Ws Yi) 
(y,u),(y,k),(y,7), (2,w), (z,w, (z,v), (2,k), (2,7), u,u), 
(w,uv), wk), wr), (u,v), (uk), u,r), W,k), vr), (kh, r)>; 
#H; 

f,H1,k:=CosetAction(H, sub<H/Id(H)>); 
s:=IsIsomorphic(H1,NL[6]); 

s; 

q, ff :=quo<G1/NL[6]>; 

q; 

q eq sub<q/q.2,q.3,q.6>; 

Order (sub<q/q.2,q.3,q.6>); 

/* q eq sub<q/q.2,q.3,q-6>;*/ 


3 Fe kf ERLE B 
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/* We show below that q is isomorphic to (2°3 @ 3°2 & 7).*/ 
HH<a,b,c>:=Group<a,b,c/a°2,b°2,c°2, (axb) “2, (axc) “3, (b*c) ~7, 
(a*b*c) “9>; 
#HH; 
f,h2,k:=CosetAction (HH, sub<HH/Id(HH)>); 
s:=IsIsomorphic(h2, q);s; 
/*true */ 
IsIsomorphic (PSL (2,8), q); 
/* true Homomorphism of GrpPerm: , Degree 9, 
Order 2°3 * 3°2 * 7 into GrpPerm: q, 
Degree 36, Order 2°3 * 3°2 * 7 induced by 

(3, 5, 6, 7, 9, 8, 4) |--> (1, 28, 23, 6, 22, 32, 16) 
(2, Bi G8; Ty 7-29, 15) G24, 1d: 66, 12,30, 20) 
(5, 33, 19, 35, 17, 25, 10)(8, 27, 9, 18, 26, 31, 21), 

(Ly By BP hee Fy OPCs Cy OD). fan, TO, 11383 230) 
(3, 29, 9)(4, 12, 13)(5, 6, 18) (7, 34, 33)(10, 27, 36) 
(14, 28, 21)(15, 22, 16)(17, 25, 32)(20, 35, 26) 
(28 S15 Qh) */ 


/* We now see 1f the generators and relations of q can be 
expressed in terms of nonidentity elements of NL[6]. */ 

T:=Transversal (G1,NL[6]); 

q,ff:=quo<G1/NL[6]>; 

ff(Tl2]) eq q.2; 

Fi TLS))- 20.43; 

FFT) eq 9.6; 

A:=T[2]; 

B:=T[3]; 

Co=Tig]; 


ffCA*B) eq q.2*q.3; 
ff AC) eq q.2*q.6; 
ff (BC) eq q.3*q.6; 


Order(A) eq Order(q.2); 
Order(B) eq Order(q.3); 
Order(C) eq Order(q.6); 


Order (A*B) eq Order(q.2*q.3); 
Order (A*C) eq Order(q.2*q.6); 
Order (B*C) eq Order(q.3*q.6); 
/* 

Order(A) eq Order(q.2); true 
Order(B) eq Order(q.3); true 


Order(C) eq Order(q.6); true 

Order (A*B) eq Order(q.2*q.3); false 
Order (A*C) eq Order(q.2*q.6); false 
Order (B*C) eq Order(q.3*q.6); false */ 


/* The computation above demostrates, it is possible. 


Thus G1 is a Semi-direct product of NUI[6] by q; that is, 


2°8 by (L_2(8)). Thus G1 is isomorphic to 
(2°8:. L_2(8)). */ 


/* we now determine the action of q on NL[6], 


and using Transversal of NL[6] */ 


for 4,5,1,m,n,0,p,8s 
wm*u “n*u “o#k “p¥r Ss 
for 4,9,1,m,n,0,p,8s 
w-m*u “n*u “o#k “prs 
for 4,9,1,mM,n,0,p,8s 
wm*u “n*u “0#k “p¥r-s 


for 4,5,1,mM,n,0,p,8s 
wm*u “n*u “0F#k “pers 
for 4,9,1,mM,n,0,p,8s 
wm*u “n*u “o#k “pers 
for 4,9,1,mM,n,0,p,8s 
wm*u “n*u “oF#k “p¥r Ss 


for 4,5,1,mM,n,0,p,8s 
wm*u “n*u “oF#k “p¥r-s 
for 4,5,1,mM,n,0,p,8s 
wm*u “n*u “oF#k “p¥r Ss 
for 4,9,1,m,n,0,p,8s 
w-m*u “n*u “0F#k “p¥r-s 


for 4,5,1,M,n,0,0,8 
wm*u “n*u “oF#k “prs 
for 4,5,1,mM,n,0,p,8 
wm*u “n*u “0F#k “prs 
for 4,5,1,M,n,0,0,8 
wm*u “n*u “o#k “prs 


for 4,5,1,mM,n,0,9,8s 
wm*u “n*u “o#k “p¥r-s 
for 4,9,1,mM,n,0,p,8s 
wm*u “n*u “0#k “p¥r Ss 


in [1..2] do tf vA eq wixy J*271* 
then 21,j,l,m,n,0,p,s; end z~f; end for; 
in [1..2] do tf 2B eq wixy Jez 71* 
then 24,j,l,m,n,0,p,s; end 1f; end for; 
in [1..2] do tf 27°C eq wrixy Jez 71* 
then 1,j,l,m,n,0,p,s; end 1f; end for; 


in [1..2] do tf y°A eq wixy Jez 71* 
then 1,j,l,m,n,0,p,s; end 1f; end for; 
in [1..2] do tf y°B eq wixy Jez 71* 
then 41,j,l,m,n,0,p,s; end z~f; end for; 
in [1..2] do tf y~C eq wrixy Jez 71* 
then 14,j,l,m,n,0,p,s; end 1~f; end for; 


in [1..2] do tf 2°A eq wrixy Jez 71* 
then 24,j,l,m,n,0,p,s; end 2~f; end for; 
in [1..2] do tf 2°B eq wixy Jez 71* 
then 24,j,l,m,n,0,p,s; end 1f; end for; 
in [1..2] do tf 27°C eq wri*y Jez 71* 
then 24,j,l,m,n,0,p,s; end 27f; end for; 


in [1..2] do tf w°A eq wixy Jez 71* 
then 1,j,l,m,n,0,p,s; end 17f; end for; 
in [1..2] do tf w°B eq wixyJ*271* 
then 1,j,l,m,n,0,p,s; end 1f; end for; 
in [1..2] do tf w°C eq wixy Jez 71* 
then 24,j,l,m,n,0,p,s; end 1f; end for; 


in [1..2] do tf u"A eq wixy Jez 71* 
then 4,j,l,m,n,0,p,s; end z~f; end for; 
in [1..2] do tf uB eq wixy Jez 71* 
then 4,j,l,m,n,0,p,s; end 1f; end for; 


for 4,7,l,m,n,0,p,s in [1..2] do if uC eq 


LL*Yy~F*Z-L* 


w-m*u“n*u ork p¥er°s then 4,7,1,m,n,0,p,s; end ~f; end for; 


for 4,7,l,m,n,0,p,s in [1..2] do if v7A eq 


Lo L*Yy ~F¥*Z-L* 


w-m*u “n*u ork p¥er°s then 4,7,1,m,n,0,p,s; end ~f; end for; 


for 4,7,l,m,n,0,p,s in [1..2] do if vB eq 


Lo L*Yy~F*Z-L* 


w-m*u“n*u ork p¥er-s then 4,7,1,m,n,0,p,s; end ~f; end for; 


for 4,7,l,m,n,0,p,s in [1..2] do if uC eq 


Lo i*Yy~F¥*Z-1L* 


w-m*u“n*u ork p¥er-s then 4,7,1,m,n,0,p,s; end ~1f; end for; 


for 4,7,l,m,n,0,p,s in [1..2] do if k7A eq 
xu “n*u “ork pers then 74,7,1,m,n,0,p,s; end 
for 4,7,l,m,n,0,p,s in [1..2] do if kB eq 
xu n*ku “ork per’s then 4,7,1,m,n,0,p,s; end 
for 4,7,l,m,n,0,p,s in [1..2] do if k°C eq 
xu “n*u “ork per’s then 74,7,1,m,n,0,p,s; end 


for 4,j7,l,m,n,0,p,s in [1..2] do if r°A eq 
xu “n*u “ork per’s then 74,7,1,m,n,0,p,s; end 
for 4,7,l,m,n,0,p,s in [1..2] do if r°B eq 
xu n*u “ork per’s then 71,7,1,m,n,0,p,s; end 
for 4,7,l,m,n,0,p,s in [1..2] do if r°-C eq 
xu n*ku “ork pers then 4,7,1,m,n,0,p,s; end 


for 4,7,l,m,n,0,p,s in [1..2] do if A°2 eq 


wo i*y~7*z-L*WM 
af; end for; 
zw i*y~7¥*z-LeWM 
af; end for; 
xv i*y~7*z-LeWM 
af; end for; 


wo i*y~7*z- LEW 
af; end for; 
wo i*y~7*z-LeWM 
af; end for; 
zw a*y~7¥*z-L*WM 
af; end for; 


Lo i*Yy~F¥*Z-1L* 


w-m*u“n*u ork p¥er-s then 4,7,1,m,n,0,p,s; end ~f; end for; 


for 4,j7,l,m,n,0,p,s in [1..2] do if B°2 eq 


Lo i*KYy~F*Z-1L* 


w-m*u“n*u ork p¥er°s then 4,7,1,m,n,0,p,s; end ~f; end for; 


for 4,7,l,m,n,0,p,s in [1..2] do if C°2 eq 


LoL*Yy~F*Z-L* 


w meu “n*u ork p¥er-s then 4,7,1,m,n,0,p,s; end ~f; end for; 


for 4,j,l,m,n,0,p,s in [1..2] do tf (A¥B)“2 eq w-i*yJ* 


z-L*w mtu “n*u ork per’s then 4,7,1,m,n,0,p,s; end tf; end for; 


for %,j,l,m,n,0,p,s in [1..2] do tf (A¥C) “3 eq w-ixyJ* 


Zz -L*w mtu “n*u ork per’s then 4,7,1,m,n,0,p,s; end if; end for; 


for 4,j,l,m,n,0,p,s in [1..2] do tf (B*C)~7 eq w-ixyJ* 


z-L*w mtu “n*u ork per’s then 4,7,1,m,n,0,p,s; end ~f; end for; 


for 4,j,l,m,n,0,p,s in [1..2] do tf (A*B*C) “9 eq wi*y GZ 


*z~ Lew mtu nu ork pers then 4,7,1,m,n,0,p,s; end if; end for; 


z°A eq xr*u; 
z°B eq &; 
z°C eq 2; 
yA eg y; 
y°B eq y*u; 
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yC eg ys 

Z2°A eq Z*Tr; 

2°B eq z*wtr; 

27°C eq 2; 

wA eq u; 

w°B eq u; 

w°C eq z*u; 

uA eq w*urr; 

u°B eq w*u*vu*r; 

uC eq 2*u; 

vA eq v; 

vB eq v; 

uC eq k; 

kA eq u*k; 

k°B eq kr; 

k°C eq vu; 

r°-A eq 7; 

r°B eq 7; 

r°-C eq Z*r; 

/* Here is a presentation for the mized extension of 2°8 by 
L_2(8). */ 
M<az,y,2,w,u,v,k,r,a,b,c>:=Group<z,y,2,W,u,v,k,r,a,b,c/“2,y 2, 
2°2,w°2,u°2,u°2,k°2,r°2, (x2, y), (2,2), (2,w), (2, u), (2, uv), (2,k), 
(2,7), (y,2), (y,w), (y,uw), (y,v), (y,k), (y,7), (@,w), (z,u), (2,u), 
(2,k), (2,7), (w,u), (u,v), (u,k), (w,r), (u,v), (u,k), (usr), (u,b), 
(v,7), (k,7r) ,a°2,0°2,c°2, (a*b) “2=w, (a*c) “S=aey*z*wtu, 

(b*c) “7=n*y*z*utk, (a*b*c) “9=n*y, 2 a=“2*W, 2 b=L, 2 c=2, 

y a=y,y b=y*w, Y C=Y, 2° A=Z*T, Z-O0=Z*WIT, Z-C=Z, 

Ww a=w, Ww b=W, UW C=Z¥*U, UW A=WEUET, U D=WEUKUET, U C=Z¥*UW, 
v-a=vu,uU~b=u,U~c=k, k a=u*k, k “b=k*r,k~c=u, 

r-a=r,7r°-0=7, 7° C=Z*r>; 

#M; 

f1,M1,k1:=CosetAction(M, sub<M/Id(M)>) ; 
s:=IsIsomorphic(M1,G1); 

8; 

/*true */ 

/* G tsomorphic to the mized extension of 2°8 by L_2(8)*/ 
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Appendix N 


270 


MAGMA Code for Isomorphism 


Type of 2’: eAs 


/* Consider the subgroup G1 of S_8 below. 
We will show that N is tsomorphic to the mixed extension of 


2-7 by A_5.*/ 


S:=Sym(8); 

aa:=S! (2, 5)(6, 
bb:=S! (1, 23, 
cce:=S! (1, 32, 
dd:=S! (1, 2)(3, 
ee:=S! (1, C2, 


DD; 

D4, 56, 
6) (4, 85, 
6) (4, 5) (7, 
5) (3, 8)(6, 


N:=sub<S/aa,bb,cc, dd, ee>; 


G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2,b°2,c°2,d4°2,e°2, 
b“a=b*e, Cc “a=c, c “b=c*e, d a=d*e, d-b=d, d°c=d, e a=e,e-b=e, 
e“c=e,e-d=e,t~2, (t,a), (t, b*d), (axd*e*t) “3, (axd¥c*d¥*t) “5, 


(axc¥d*t) “10>; 
#G; 


f,G1,k:=CosetAction(G, sub<G/a,b,c,d,e>); 


#G1, #k; 


/* We will find the Isomorphism type 


Center (G1); 


CompositionFactors (G1); 
NL:=NormalLattice (G1); 


NL; 


/* We will search for the largest Abelian subgroup of G1, 
NL[i], using the normal subgroup Lattice NL */ 


8); 
Ts 
8); 
1} 


of G1 = 7680 
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for « in [1..34] do if IsAbelian(NL[i]) then i; end if; end for; 


/* Thus, NL[18] is the largest Abelian subgroup of G1. We factor G1 
by NL[18],and call it q. Since Center(G1) < NL[18], G1 is a 
mized extension of NL[18] by q, the factor group G1/NL[18]. 
We now find tsomorphism types and presentations of NL[18] and q. */ 
/* We show below that NL[18] is isomorphic to 2°7 */ 
NL[18]; 
m:=AbelLianGroup (GrpPerm, [2,2,2,2,2,2,2]); 
IsIsomorphic(m, NL[18]); 
/* true Mapping from: GrpPerm: m to GrpPerm: Degree 240, 
Order 2°7 Composition of Mapping from: GrpPerm: m to GrpPC 
and Mapping from: GrpPC to GrpPC and 
Mapping from: GrpPC to GrpPerm: , Degree 240, Order 2°7 
*/ 
/* NL[18] ts generated by xz,y,z,w,u,u and k given below. */ 


NL[18] eq sub<NL[18] /NL[18].1,NL[18].2,NL[18].3, 
NL[18].4,NL[18].5,NL[18].6,NL[18].7>; 

:=G1!NL[18].1; 

:=G1!NL[18].2; 

:=G1!NL[18].3; 

:=G1!NL[18].4; 

:=G1!NL[18].5; 

:=G1!NL[18].6; 

:=G1!NL[18].7; 

rey eq Y*T; 

/* A presentation of NL[18] is {z,y,z,w,u,v,k/2°2,y°2,2°2,w'2, 
u°2,v°2,k°2, (2, y), (2,2), (2,w), (2, u), (2, vu), (2,k), (y,2), (yw, 
(y,u), (y,u), (y,k), (2,w), (2,w), (z,v), (2,k), ww, u,v), w,k), 
(u,v), (u,k), (vu, k)}. #7 

/* We factor G1 by N[18] and find the generators of q a 
presentation for q.*/ 
H<a,y,2,w,u,v,k>:=Group<z,y,z2,w,u,v,k/“2°2,y°2,2°2,w°2,u-2,u-2, 
K°2, (2, y) 5 (e, 2) 5 (byw) , Ce, a) 3-0), COR) 5 CY, 2), yw) s Cys) G2) 
» (yk), (2,w), (2,u), (z,u), (2,k), (u,u), wiv), (w,k), (u,v), Cu, k), 
(vu, k)>; #H; 


xr ee &€& vee 8 


q. ff :=quo<G1/NL[18]>; 

q; 

q eq sub<q/q.2,q.3,q.6>; 

Order( sub<q/q.2,q.3,q.6>); 

/* q eq sub<q/q.2,q.3,q-.6>; */ 

/* We show below that q is isomorphic to (2°2 23 2 5).*/ 


272 


HH<a,b,c>:=Group<a,b,c/a°2,b°2,c°2, (a*b) “2, (a*c) “3, 
(b*c) “5, (axb*c) “5>; 

#HH; 

f.h2,k:=CosetAction (HH, sub<HH/Id(HH)>); 
IsIsomorphic(h2, q); 

IsIsomorphic(h2,Alt(5)); 


/* We now see 1f the generators and relations of q 
can be expressed in terms of nonidentity elements 


of NL[18]. */ 


T:=Transversal (G1,NL[18]); 
q. ff :=quo<G1/NL[18]>; 
ff(Tl2]) eq 4.2; 

fFC3]) eq q.3; 

FFCTIAI) eg 9.6; 


A:=G1!T[2]; 
B:=G1!T[3]; 
C:=G1!T[4]; 


ffCA*B) eq q.2*q.3; 
ff AC) eq q.2*q.6; 
ff (BC) eq q.3*q.6; 


Order(A) eq Order(q.2); 

Order(B) eq Order(q.3); 

Order(C) eq Order(q.6); 

Order (A*B) eq Order(q.2*q.3); 

Order (A*C) eq Order(q.2*q.6); 

Order (B*C) eq Order(q.3*q.6); 

/* 

Order(A) eq Order(q.2); true 

Order(B) eq Order(q.3); true 

Order(C) eq Order(q.6); true 

Order (A*B) eq Order(q.2*q.3); false 

Order (A*C) eq Order(q.2*q.6); false 

Order (B*C) eq Order(q.3*q.6); false */ 

/* The computation above demostrates, it is possible. 
Thus G1 is a mized extension product of NIL[18] by q; 
that ts, 2°7 by ALS. Thus G1 is tsomorphic 

to (2°7:.(A_5)). */ 


/* we now determine the action of q on NL[18], 


and using Transversal of NL[18] instead of 
the elements of q and write the generatrs elements 
of (A_5) in terms of 2°7. */ 


for 4,j,l,m,n,0,p in 


[1..2] do if vA eq wi*y77f¥271 


*xw meu n*u-o*rk-p then 71,7,1l,m,n,0,p; end if; end for; 


for 4,j,l,m,n,0,p in 
w-m*u“n*u-o*xk-p then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-o*xk~p then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xk-p then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-orkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xk~p then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*rkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*rkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xkp then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xk-p then 
for 4,j,l,m,n,0,p in 
w-m*u“n*u-~o*xk~p then 


[1..2] do tf 2B eq wixy f*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf 27°C eq wrixy fez Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf yA eq wrixy f*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf y°B eq wi*ty f*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf y~C eq writyf*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf 27A eq wrixyf*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf 2°B eq wi*y f*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf 27°C eq wri*y fez Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf wA eq wrixy fez Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf wB eq wixyf*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf wC eq wrixy fez Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf uA eq wrixy fez Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf u“B eq writy fez Le 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf uC eq writyf*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf vA eq wrixyf*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf vB eq w-ixy f*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf uC eq wrixyf*z Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf kA eq wity fez Lt 
4,j,l,m,n,0,p; end if; end for; 
[1..2] do tf k7B eq w-ixy f*z Lt 
4,j,l,m,n,0,p; end if; end for; 


for %,j,l,m,n,0,p in [1..2] do if k°C eq wrixyJ*271* 
w-m*u“n*u-o*rkp then 71,7,1,m,n,0,p; end if; end for; 


for 4,7,l,m,n,0,p in [1.. 
z~L*w mtu “neu ork “p then 
for 4,7,l,m,n,0,p in [1.. 
z~L*w mtu “n*u ork “p then 
for 4,7,l,m,n,0,p in [1.. 
Zz L*w mtu “n*u ork “p then 
for 4,j,l,m,n,0,p in [1.. 
z~L*w mtu “n*u-o*k-p then 


z°A eq 2; 


zB 


kA 
kB 
kc 


eg 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 
eq 


“ew; 
a; 
y; 
y; 
y; 
z; 


2] do if (A*B)"2 eq w7i*y Jt 
4,j,l,m,n,0,p; end if; end for; 
2] do if (A*C) “3 eq wi*y Jt 
4,j,l,m,n,0,p; end if; end for; 
2] do if (BC) “5 eq wv ity Jt 
4,j,l,m,n,0,p; end if; end for; 
2] do tf (A*B¥C) "5 eq wi i*xy"7* 
4,j,l,m,n,0,p; end if; end for; 


/* Here is a presentation for the mixed extension of 


2°7 by A_(5). */ 


G<au,y,2,W,U,U,k,a,0,c>:=Group<z,y,Z,w,u,v,k,a,b,c/“°2,y 2, 


22,0 2,02, U2, kh 2, (2,9), (a, 2), (ew), e, ud, Gv), eR), 


(y,2), (y,w, (y,w, (yu), yb), (2,w), (2,u), (2,u), (2,k), (w,u) 


, (w,u), (wk), (u,v), (u,k), (v,k),a°2,0°2,c°2, (a*b) “2=u, 
(axc) “3=a¥*z*weurtk, (b*c) “5=xxwxuxutk, (atb*c) “5=y, 2 -a=a, 
@b=n*w, 2° c=2,y a=y,y b=y,Yy C=Y, 2° A=Z, 2° b=Z, 2° c=V,w a=w, 


w~b=w, UW C=Z¥*U, U G=WtU, U O=Z¥*¥U, U C=WEU, VU A=Z*U, UV b=Z*WEU, 
u°c=2,k- a=w*k, k“b=k,k~c=k>; 
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#G; 

/* now we show that G1 is tsomorphic to the mixed extension of 
2°7 by A_5 given abvoe. */ 

f1,91,k1:=CosetAction(G, sub<G/Id(G)>) ; 

IsIsomorphic(g1,G1); 

/*true Mapping from: GrpPerm: g1 to GrpPerm: G1 

Composition of Mapping from: GrpPerm: g1 to GrpPC and 

Mapping from: GrpPC to GrpPC and 

Mapping from: GrpPC to GrpPerm: G1*/ 


/* Thus, G1 is isomorphic (2°7 :. Alt(5) */7 


Appendix O 
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MAGMA Code for Isomorphism 


Type of 3: (PSL(2,19) x 2) 


/* Consider the subgroup G1 of S_8 below. 
ts tsomorphic to the Semidirect Product 


S:=Sym(8); 

aa:=S! (2, 5)(6, 
bb:=S! (1, 23, 
ec:=S! (1, DC, 
dd:=S! (1, 2)(3, 
ee:=S! (1, 4)(2, 


TDs 

D4, 56, 
6) (4, 85, 
6) (4, 5) (7, 
5)(3, 86, 


N:=sub<S/aa,bb,cc,dd,ee>; 


G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a°2,b°2,c°2,d4°2,e°2, 
b“a=b*e, c“a=c, c “b=c*e, d a=d*e, d-b=d, d°c=d, e “a=e,eb=e, 
e°“c=e,e-d=e,t~2, (t,a), (t, b*d), (b*c*t) “9, (0¥c*d¥*t) “9, 
(axd*e*t) “10, (akd*c*d*t) “3, (a*c*d*t) “9>; 
f,G1,k:=CosetAction(G, sub<G/a,b,c,d,e>); 


#G1, #k; 


/* We will find the Isomorphism type 


Center (G1); 


CompositionFactors (G1); 
NL:=NormalLattice (G1); 


NL; 


/* We will search for the largest Abelian subgroup of G1, 
NL[i], using the normal subgroup lattice NL */ 
for «4 in [1..6] do if IsAbelian(NL[i]) then 1; end if; end for; 


/* Thus, NL[2] is the largest Abelian subgroup of G1. 


8); 
7; 
8); 
1); 


We will show that N 
of 3 by (PSL(2,19) x 2).*/ 


of G1 = 20520 


277 


We factor G1 by NL[2],and call it gq. Since Center(G1) < NL[2], 
G1 is a mixed extension of NL[2] by q, the factor group G1/NL[2]. 
We now find tsomorphism types and presentations of NL[2] and q. */ 
/* We show below that NL[2] is isomorphic to 3 */ 
NL [2] ; 
m:=AbeLianGroup (GrpPerm, [3]); 
IsIsomorphic(m,NL[2]); 
/* NL[2] is generated by x given below. */ 
NL[2] eq sub<NL[2]/NL[2].2>; 
2:=G1!NL[2].2; 
/* A presentation of NL[2] is fa/x27-3}.*/ 
/* We factor G1 by N[2] and find the generators 
of q a presentation for q.*/ 
q, ff :=quo<G1/NL[2]>; 
q; 
/* We show below that q is isomorphic to (2°3 © 3°22 5 w 19).*/ 


H<a,b,c>:=Group<a,b,c/a°2,b°2,c°2, (a*b) “2, (c*b) “3, (axc) “10, 
(C¥DKAECKDKAKCEDFAKCKD KAKCKDFAKCKAKOFCHA*D *ECKAKD¥*CHAKD) , 
(aX C#D*AFCKAKCED FAFCKAKCKDFAKCHKOKAECKAECKAFCKDKAECKAFCKA¥ 
C¥KAKOKCHAKCKAKCKAKDECKAFD*CHAXCKAKOFC) >; 

#H; 

D:=DirectProduct (PSL(2,19),CyclicGroup (2)); 
IsIsomorphic(D,q); 


T:=Transversal (G1,NL[2]); 

q,ff:=quo<G1/NL[2]>; 

ff(Tl2]) eq 4.2; 

FFCTI3]) eg q.3; 

FFT) eq q.6; 

A:=G1!T[2]; 

B:=G1!T([3]; 

C:=G1!T[4]; 

for «~ in [1..3] do if w7A eq wt then i; end if; 
end for; 

for «~ in [1..3] do if xB eq xt then i; end if; 
end for; 

for «~ in [1..3] do if x°C eq wt then i; end tf; 
end for; 


G<a@,a,b,c>:=Group<z,a,b,c/x2°3,a°2,b°2,c°2, (a*b) “2, (c*b) “3, 

(atc) “10, (C¥O*AKCKDKAKCKD KAKCHKD KAECKD FAKCKAXDECKAKDECKAKO CHAD) , 
(a*C#KD*AKCKAKCKDKAKCKAKCHDFAECKOKAKCKAKCKAECKDFAFKCKAKCKA¥CKA¥D 
*CKO*CKA*CKA*DFCKAFO¥CKAKCKAXD¥C), LZ a=2,2~b=2°2, 2 c=xL"2>; 
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#G; 
f1,91,k1:=CosetAction(G, sub<G/Id(G)>) ; 
IsIsomorphic(g1,G1); 


/* Thus, G1 ts tsomorphic (3 : (PSL(2,19) & 2) */ 
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Appendix P 


MAGMA Code for Isomorphism 
Type of 2°: e(L3(4) x 2) 


/* Consider the subroup G1 of S_9 below. We will show that N 
ts tsomorphic to the mized extension of 2°3 by (L_3(4) w 2).*/ 

S:=Sym(9); 

aa:=S!(2, 3, 4, 8, 5, 7, 9, 6); 

bb:=S!(2, 4)(3, (5, 9); 

cce:=S!(2, 4, 5, (3, 8, 7, 6); 

dd:=S!(2, 5)(3, (4, 9(6, 8); 

ees=S!C1; -2;. BC, 6) DG, 8.73 

ff27810,. 3, VC. 6, 4X5, 95 5 

N:=sub<S/aa,bb,cc,dd,ee, ff>; 
G<a,b,c,d,e,f,t>:=Group<a,b,c,d,e,f,t/a“8,b°2, 
c4,4°2,e°3,f°3, (e, f),a°2=c,c“2=d, b “a=b*c*d, c“a=c, 
c“b=c#d, d-a=d,d“b=d,d“c=d,e“a=f,e"b=ex(f 2), 
e“c=ex(f"2),e"d=e2, f “a=ex(f 2), f “b=f "2, f~c=(e“2) *(f 2) 
»f d=f°2, f°e=f,t°2, (t,a), (t,b), (t,c), (t, d), (axd*t~e) “6>; 

f,G1,k:=CosetAction(G, sub<G/a,b,c,d,e,f>); 

#G1; #k; 

/* We will find the Isomorphism type of G1 = 645120 */ 
Center (G1); 

CompositionFactors (G1) ; 

NL:=NormalLattice (G1); 

NL; 

/* We will search for the largest Abelian subgroup of G1, 

NL[i], using the normal subgroup Lattice NL */ 


for «~ in [1..25] do if IsAbelian(NL[i]) then i; end if; 
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end for; 
/* Thus, NL[8] is the largest Abelian subgroup of G1. 
We factor G1 by NL[8],and call it q. Since Center(G1) < NL[8], 
G1 is a mized extension of NL[8] by q, the factor group G1/NL[8]. 
We now find tsomorphism types and presentations of NL[8] and q. */ 
/* We show below that NL[8] is isomorphic to 2°3 */ 
NL [8] ; 
m:=AbelianGroup (GrpPerm, [8]) ; 
IsIsomorphic(m,NL[8]); 


/* NL[8] is generated by xz and k given below. */ 
NL[8] eq sub<NL[8]/NL[8].1>; 
v:=NL[8].1; 


z2:=G1!NL[8].1; 

/* A presentation of NL[8]{x/x-8}.*/ 

/* We factor G1 by N[8] and find the generators 
of q a presentation for q.*/ 

q, ff:=quo<G1/NL[8]>; 

q; 

q eq sub<q/q.1,q.2,9-3,9-459-5,49-6,49.-)P; 

Order( sub<q/q.1,9.2,9-3,9-459-5,9.6,q.7>); 
D:=DirectProduct (PSL(3,4),CyclicGroup (2)) ; 
IsIsomorphic(D,q); 

FPGroup (q) ; 

/* q eq sub<q/q.1,q9.2,9-3,9-459-5,9-6,q.7>; */ 
/* We show below that q is isomorphic to (L_3(4) X 2).*/ 


H<a,b,c,d,e,f,z>:=Group<a,b,c,d,e,f,z/a°8,b°2,c 4,42, 
e°3,f73,2°2, (a~-2*c), (cxa~2*d), (b¥c7-1) “2, (a~-1*e ~-1*a¥f) 
, (d*e~-1) “2, (b*f “-1) “2, (e, f), (a°-1*z*a*z), (b*f) “2, 
(a~-1*b*a~-1*b*d), (axe~-1*a~-1*ex*f), (exz*e~-1*zZ*e~-1*z 

*b “2ed*e~-1*zZ*e~-1*zZ*e*zZ) , (ZEW -1¥Z*C~-1* FF ZKCKCHZ*SHZ 
*exc7-1*2zZ*f --1), (2*b*f “-1*e“-1* 2% fxzxe ~-1*c*z*exZ*f *akZ*e)>; 
#H; 

f,h1,k:=CosetAction(H, sub<H/Id(H)>); 

IsIsomorphic(h1,q); 

/*true Mapping from: GrpPerm: hi to GrpPerm: q 
Composition of Mapping from: GrpPerm: h1 to GrpPC and 
Mapping from: GrpPC to GrpPC and 

Mapping from: GrpPC to GrpPerm: q */ 


/* We now see tf the generators and relations 
of q can be expressed in terms of nonidentity 
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elements of NL[8]. */ 
T:=Transversal (G1, NL[8]); 
q, ff :=quo<G1/NL[8]>; 
ffCl2]) eq q.1; 

FFCTI3]) eg 4.2; 

FFT) eq 9.3; 

ffCI5]) eq 4.4; 

ffCTI6]) eg q.5; 

ffCI7]) eq q.6; 

ffCl8]) eq 4.7; 


A:=T[2]; 
B:=T[3]; 
Co=T ia]; 
D:=T[5]; 
E:=T[6]; 
F:=T[7]; 
Z:=T[8]; 
ffCA*B) eq q.1*q.2; 
fFCA*C) eq gq.1*q.3; 
ff CAD) eq 4.1*q.4; 
fFCA*E) eq q.1*q.5; 
ff AF) eq q.1*q.6; 
ff A*Z) eq q.1¥*q.7; 


Order(A) eq Order(q.1); 

Order(B) eq Order(q.2); 

Order(C) eq Order(q.3); 

Order(D) eq Order(q.4); 

Order(E) eq Order(q.5); 

Order(F) eq Order(q.6); 

Order (Z) eq Order(q.7); 

Order (A*B) eq Order(q.1*q.2); 

Order (A*C) eq Order(q.1*q.3); 

Order (A*D) eq Order(q.1*q.4); 

Order (A*E) eq Order(q.1*q.5); 

Order (A*F) eq Order(q.1*q.6); 

Order (A*Z) eq Order(q.1*q.7); 

/* The computation above demostrates, it is possible. 
Thus G1 is a mized extension product of NI[8] by q; 
that is, 2°3 by (L_3(4) X 2). Thus G1 is isomorphic 
to" Ss2 CoB) XB), 87 

A:=G1!T[2]; 

BP=G11T [3]; 

C:=G1!T[4]; 


Ns mS 


:=G1!T[5]; 
:=G1!T[6]; 
:=G1!T[7]; 
:=G1!T[8]; 


/* we now determine the action of q on NL[8], 

and using Transversal of NL[8] instead of the elements 

of q and write the generatrs elements of ((L_3(4) X 2)) 
in terms of 2°3. */ 


for « in [1. 
for « in [1. 
for « in [1. 
for « in [1. 
for 4 in [1. 
for 4 in [1. 
for 4 in [1. 
for « in [1. 
for «4 in [1. 
for «4 in [1. 
for « in [1. 
end for; 
for « in [1. 
for « in [1. 
for «4 in [1. 
for «4 in [1. 
end for; 
for «4 in [1. 
for a in [1. 
end for; 
for «4 in [1. 
end for; 
for i in [1.. 
eq xt then 
for 4 in [1.. 
eq xt then 
for 4 in [1.. 


8] 
8] 
v8) 
8] 
wey 
eH 
ed | 


re} 
8] 
8] 
8] 


wey 
are 
ey), 
so} 


8] 
8] 


8] 


8] 
4 is 
8] 
4 3 


8] 


do 1f x°A eq x2 then 1; end if; end for; 
do 7f xB eq x2 then 71; end if; end for; 
do if z«°C eq xt then 21; end «~f; end for; 
do 17f xD eq x2 then 7; end if; end for; 
do if x°E eq x2 then 71; end if; end for; 
do if x F eq x2 then 71; end if; end for; 
do if x£°Z eq xt then 7; end if; end for; 


do if 
do if 
do if 
do if 
do if 
do if 
do if 
do if 


do if 
do if 


do if 


do if 


(A~-2*C) eq wt then 1; end if; end for; 
(C#A“2*D) eq wt then 1; end if; end for; 
(B*C*-1)°2 eq wi then i; end if; end for; 
(A~-1*E°-1*A*F) eq vi then 2%; end if; 
(D*E~-1)°2 eq vt then 21; end if; end for; 
(B*F~-1)°2 eq vt then 21; end if; end for; 
(E,F) eq x°t then 1; end if; end for; 
(A~-1*Z*A*Z) eq xw°t then 1; end tf; 


(BF) “2 eq wt then %; end if; end for; 
(A~-1*B*A~-1*B*D) eq x7t then 2; end tf; 


(A*E~-1*A~-1*E*F) eq x7t then 1; end tf; 


(E*Z*E~-1*Z*E~-14*Z*B“2*D*E ~-1*Z4*E ~-1*Z4*E*Z) 


end if; end for; 


do if 


(Z*E~-1*Z*C 7-1 *F*Z*EXC#Z*F*Z#E*C ~-1*Z*F ~-1) 


end if; end for; 


do if 


(Z*B*F~-1#E~-1*Z*F*Z#E ~-1*C#Z*EXZ*F*A*Z#E) 


eq zt then 21; end if; end for; 


/* Here is a presentation for the mized extension of 2°3 


by ((L.3(4) X 2)). */ 


G<a,a,b,c,d,e,f,z2>:=Group<z,a,b,c,d,e,f,z2/2°8,a°8,b°2,c74,da°2, 
e°3,f°3,2°2, (a~-2*c), (cxa~2*d), (b¥c~-1) “2, (a~-1*e *-1*a*f), 


(d*e~-1) "2, (b*f~-1) “2, (e, f), (a°-1*z*a*z), (0*f) “2, (a~-1*b*a~-1*b¥*d) 
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, (axe ~-1*a~-1*e*f), (exz*e~-1*Z*e~-1*Z*b “2*d*e ~-1*zZ*e~-1*Z*e%Z) 
» (zeke ~-1* ZC 7-1 fkZxeKCKZK SZ KEKC -1*Z*f ~-1), 

(z2*b*f “-1*e~-1¥*z*f*z*e~-1*ckz*exz*f *axzke) =2, 0 a=2°3, 2 -b=2°3, 
gw °c=2,0°d="2,x2°-e=2,0° f=2, 2° 2=2°5>; 

#G; 


/* now we show that G1 is tsomorphic to the mixed extension 
of 2°3 by (L_3(4) X 2) given abvoe. */ 


f1,91,k1:=CosetAction(G, sub<G/Id(G)>) ; 


IsIsomorphic(g1,G1); 
/* Thus, G1 ts tsomorphic (2°3 :. (L_8(4) a& 2)) */ 
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Appendix Q 


MAGMA Code for Isomorphism 
Type of ve ; M9 


/* Consider the subroup G1 of S_6 below. We will show that N 
ts tsomorphic to the Semidirect Product of 2°2 by M12 .*/ 
S1:=Sym(6) ; 
TfrsSii 1. BC, biG, 6); 
gg:=S1!(1, 2)(3, 4) (5, 6); 
hh:=S1!(1, 3, 6)(2, 4, 5); 
H:=sub<S1/ff,gg,hh>; 
G<a,b,c, t>:=Group<a,b,c,t/a~2,b°2,c°3, (a*b) “2, (a*c~-1) “2, 
(b*(c~-1) *b*c), t°2, (t, a*bd), (axt~c) “5, (axbd*t ~c) “6, (c¥t) “8, 
(b¥*c*t “b*c) “8>; 
f,G1,k:=CosetAction(G, sub<G/a,b,c>); 
#G1, #k; 
/* We will find the Isomorphism type of G1 = 380160 */ 
Center (G1); 
CompositionFactors (G1); 
NL:=NormalLattice (G1); 
NL; 


/* We will search for the largest Abelian subgroup of G1, 
NL[i], using the normal subgroup Lattice NL */ 


for 4 in [1..10] do if TsAbelian(NL[i]) then i; end if; 
end for; 

/* Thus, NL[5] is the largest Abelian subgroup of G1. 
We factor G1 by NL[5],and call it q. Since 

Center(G1) < NL[5], G1 is a mized extension of NL[5] by 


q, the factor group G1/NL[5]. We now find tsomorphism types 
and presentations of NL[5] and q. */ 

/* We show below that NL[5] is tsomorphic to 2°2 */ 

NL[5] ; 

m:=AbelLianGroup (GrpPerm, [2,2]); 

IsIsomorphic(m,NL[5]); 


/* NL[5] is generated by x and y given below. */ 
NL[5] eq sub<NL[5]/NL[5].2,NL[5].3>; 

z:=NL[5].2; 

y:=NL[5].3; 

wey ed Y*Z; 

wry ; 


/* A presentation of NL[5] is fx, y/x°2,y°2, (x, y)}.*/ 
/* We factor G1 by N[5] and find the generators of 

q a presentation for q.*/ 

q,ff:=quo<G1/NL[5]>; 

q; 

q eq sub<q/q.1,q.2,9q-3,q.4>; 

Order( sub<q/q.1,q.2,q.3,q-4>); 

IsIsomorphic (MathtieuGroup (12), q); 


/* We show below that q ts isomorphic to (M12).+*/ 


HH<a,b,c,d>:=Group<a,b,c,d/a°2,b°2,c°3,da°2, (axb) “2, 
(a*c*-1) “2, (a*d) “6, (b*c~-1*b¥c), (a*d*b) “2, (c*-1¥*d*c*d) “3, 
(c*-1*a*d*c ~-1¥*a*d*c ~-1¥*a*d¥*a*c#*d*a*c#d), (c~-1*d) “8, 
(d*a*xd*c~-1*d*a*d*a*d*c*xd*a*d*a*d*c ~-1*d*b) , 
(d*a*xd*c*d*c ~-1*d*a*d*c ~-1*d*c*d*b¥*d¥*c ~-1*d¥*c), 
(axd*c*d*axd*c ~-1¥d*a*d*c*xd*a*d*c ~-1*d*b¥*d*c ~-1*d)>; 
#HH; 

f.h2,k:=CosetAction (HH, sub<HH/Id(HH)>); 
IsIsomorphic(h2, q); 

/*true Mapping from: GrpPerm: h2 to GrpPerm: q 
Composition of Mapping from: GrpPerm: h2 to GrpPC and 
Mapping from: GrpPC to GrpPC and 

Mapping from: GrpPC to GrpPerm: q 

*/ 


/* We now see 1f the generators and relations of q 


can be expressed in terms of nonidentity elements of NL[6]. 


T:=Transversal (G1,NL[5]); 
q,ff:=quo<G1/NL[5]>; 


*/ 
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ff (rl2]) 
ffCTl3l) 
ff(TI4]) 
ff(s]) 
A:=T[2]; 
B:=T[3]; 
Ce=T 14]; 
D:=T[5]; 
/* The computation above demostrates, it is possible. 


eq q.-1; 
eq q-.23 
eq q-3; 
eq 9-4; 


Thus G1 is a mized extension product of NIU[5] by q; 
that ts, 2°2 by (M(12)). 


(2°2:.(M(12)). 


ae 


Thus G1 is tsomorphic to 


/* we now determine the action of q on NL[5], and using 
Transversal of NL[5] instead of the elements of q and 
write the generatrs elements of (M(12)) in terms of 272. 


for 
for 
for 
for 


for 7 
for 2t, 
for 7 
for 7 


/* Here 
of 2°2 


#G; 


an 
an 
an 
an 


an 
an 
an 
an 


as 
by 


Ps 
[i 
fis 
[1 


Fis 
Ere 
Pi: 
‘ee 


a presentation for the mized extension 


2] 
2] 
2] 
A | 


ied 
2] 
| 
2] 


do 
do 
do 
do 


do 
do 
do 
do 


(M(12)). 
G<a,y,a,b,c,d>:=Group<z,y,a,b,c,d/2°2,y~2, (x,y), 
a°2,b°2,c°3,d72, (a*b) “2, (a*c*-1) “2, (d*a) “3, (b*c~-1*b¥c), 
(a*xd*b) “2, (a*xd*c ~-1*a*d*c ~-1*a*d*a*c#d*c~-1), 
(c*xd*c*xa*d*c ~-1*a*d*c*d*c ~-1*d) , 2 a=2*y*zZ, 
wv b=x*uru, 2 c=E*Yy*Z*wWeK, LC A=L*Z*W, Y A=Z, 

y b=y*w, y C=y*Z¥*u, Y d=Z¥*UFU> ; 


af «7A 
if 2B 
af 27°C 
af «°D 


af yA 
af yB 
wf yC 
af yD 


*/ 


eq 
eq 
eq 
eq 


eg 
eg 
eq 
eq 


wi*y 7 
wrixy "J 
wriny "J 
wrixy "J 


wri*y 7 
wi*y 7 
wri*y 7 
2iey 77 


then 
then 
then 
then 


then 
then 
then 
then 


/* now we show that G1 is tsomorphic to the 


mized extension of 2°2 by (M(12)) given abvoe. 


f1,91,k1:=CosetAction(G, sub<G/Id(G)>); 
IsIsomorphic(g1,G1); 


/* Thus, G1 is isomorphic (2°72 : 


M(12)) */ 


4,9; 
4,9; 
4,9; 
4,93 


4,93 
4,J; 
4,93 
4,9; 


*/ 


end 
end 
end 
end 


end 
end 
end 
end 


tf; 
tf; 
tf; 
tf; 


af; 
af; 
tf; 
tf; 


*/ 


end for; 
end for; 
end for; 
end for; 


end for; 
end for; 
end for; 
end for; 
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Appendix R 


MAGMA Code for Isomorphism 
Type of 2°: eS, 


/* Consider the subroup G1 of S_16 below. We will show that N 
ts tsomorphic to the mixed extension of 2°6 by S_4.*/ 


S1:=Sym(16) ; 
Sp SSL I 1 By. By OMG. Ty) Bp 0) Oy. A4,. 10%, 19) 

(11, 16,42, 15)3 
kk:=S1!(1, 9, 2, 10)(8, 11, 4, 12) (5, 13, 6, 

14) (7, 15, 8, 16); 
Ll:=S1!(5, 8) (6, 79, 11)(10, 12) (13, 14) 

(15, 16); 
mm:=81!(1, 2)(3, 4)(5, 6)(7, 8)(9, 10) (11, 12) 

(13, 14)(15, 16); 
nn:=S1!(1, 3(2, 40°05, BCT, 8)(13, 16) (14, 15); 
H:=sub<S1/7j,kk,11l,mm,nn>; 
G<a,b,c,d,e, t>:=Group<a,b,c,d,e,t/a4,b°4,c°2,d4°2,e°2, 
((a~-2) *d), ((b 7-1) * (a2) * (b~-1)), ((a~-1) * (b ~-1) ¥a* (6 ~-1)) 
, ((a*-1) *c* (a*-1) ¥e) , ((0 7-1) *c¥b*e), (c¥e) “2,472, (tc), 
(a*xc*e*bd ~-1*t) “3, (a*t~b) “8, (0¥t a) ~3>; 
f,G1,k:=CosetAction(G, sub<G/a,b,c,d,e>); 
#G1, #k; 


/* We will find the Isomorphism type of G1 = 1536 */ 
Center (G1); 

CompostitionFactors (G1); 

NL:=NormalLattice (G1); 

NL; 


/* We will search for the largest Abelian subgroup of G1, 
NL[i], using the normal subgroup Lattice NL */ 


for «4 in [1..16] do if TsAbelian(NL[i]) then i; end if; 
end for; 


/* Thus, NL[9] is the largest Abelian subgroup of G1. 
We factor G1 by NL[9],and call it q. Since 
Center(G1) < NL[9], G1 is a mized extension of NL[9] by 

q, the factor group G1/NL[9]. We now find tsomorphism 

types and presentations of NL[9] and q. */ 

/* We show below that NL[9] is isomorphic to 2°6 */ 

NL[9] ; 

m:=AbelLianGroup (GrpPerm, [2,2,2,2,2,2]); 

IsIsomorphic(m,NL[9]); 

/* NL[9] is generated by z,y,z,w,u and v given below. */ 

NL[9] eq sub<NL[9]/NL[9].1,NL[9].2,NL[9].3,NL[9].4, 

NL[9].5,NL[9].6>; 

:=NL[9].1; 

:=NL[9].2; 

:=NL[9].3; 

:=NL[9].4; 

:=NL[9].5; 

:=NVL[9].6; 

wey ed Y*Z; 

cry; 

/* A presentation of NL[9] is {z,y,z2,w,u,v/“2°2,y 2, 

2°2,w°2,u-2,u 2, (“,y), (2,2), (2,w), (a, u), (2, v), (y, 2) 

»(y,w), (y,u), (y,v), (2,w), (2,u), (z,u), (w,u), (u,v), 
(u,v) }.*/ 

/* We factor G1 by N[9] and find the generators 

of q a presentation for q.*/ 

q,ff:=quo<G1/NL[9]>; 

q; 

q eq sub<q/q.1,q.2,q.6>; 

Order( sub<q/q.1,q.2,q.6>); 

IsIsomorphic (Sym(4),q); 

/* 

true Isomorphism of GrpPerm: , Degree 4, 

Order 2°3 * 3 into GrpPerm: q, Degree 4, 
Order 2°3 * 3 induced by 

(ly ey Bp a) 1 Oy By Be BD 

(13.2). (==> 1 @) 


ee € ve 8 


*/ 
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/* q eq sub<q/q.1,q.2,q-.6>;*/ 
/* We show below that q is isomorphic to (S_4).*/ 


HH<a,b,c>:=Group<a,b,c/a°2,b°2,c°2, (a*b) “2, (axc) “4, 
(c*b) “3, (b¥a*c*b¥*a*C#a*xD*C)>; 

#HH; 

f.h2,k:=CosetAction (HH, sub<HH/Id(HH)>); 
IsIsomorphic(h2, q); 


/* We now see 1f the generators and relations of q 
can be expressed in terms of nonidentity elements 

of NL[9]. */ 

T:=Transversal (G1, NL[9]); 

q, ff :=quo<G1/NL[9]>; 

ff(Tl2]) eq q-1; 

FFCTI3]) eg 4.2; 

ffCTI4]) eq 9.6; 

A:=T[2]; 

B:=T[3]; 

Crass 


ffCA*B) eq q.1*q.2; 
ff AC) eq q.1*q.6; 
ff (BC) eq q.2*q.6; 


Order(A) eq Order(q.1); 

Order(B) eq Order(q.2); 

Order(C) eq Order(q.6); 

Order (A*B) eq Order(q.1*q.2); 
Order (A*C) eq Order(q.1*q.6); 
Order (B*C) eq Order(q.2*q.6); 

/* 

Order(A) eq Order(q.1); false 
Order(B) eq Order(q.2); false 
Order(C) eq Order(q.6); true 

Order (A*B) eq Order(q.1*q.2); false 
Order (A*C) eq Order(q.1*q.6); false 
Order (B*C) eq Order(q.2*q.6);true */ 


/* The computation above demostrates, it is possible. 
Thus G1 is a mized extension product of NL[9] by q; 
that is, 2°6 by (S_4). Thus G1 ts isomorphic 

to (2°6:. S_4). */ 
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/* we now determine the action of q on NL[9], and using 
Transversal of NL[9] instead of the elements of q 
and write the generatrs elements of S_4 in terms of 2°6. */ 


for 4,7,l,m,n,o in [1..2] do if 2A eq wri*y7*e71 
*xw-mku-n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,7,l,m,n,o in [1..2] do if 2B eq writy 7271 
*xw-mku“n*u-~o then 4,7,1l,m,n,0; end if; end for; 
for %,j,l,m,n,o in [1..2] do if 2°C eq writy Fez 
*xw-mku-n*u-~o then 4,7,1l,m,n,0; end if; end for; 


for 4,j,l,m,n,o in [1..2] do if y7A eq writy 7 
*z~ Lew meu n*u-o then 4,7,1l,m,n,0; end if; end for; 
for %,j,l,m,n,o in [1..2] do tf yB eq wi*y J 
*z~ Lew meu-n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,j,l,m,n,o in [1..2] do tf y~C eq wi*y J 
*z~ Lew meu -n*u-o then 4,7,1l,m,n,0; end if; end for; 


for 4,j,l,m,n,o in [1..2] do tf z2°A eq w7i*y J 
*z~ Lew meu -n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,j7,l,m,n,o in [1..2] do if 27B eq wity 7 
*z~ Lew meu-n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,j,l,m,n,o in [1..2] do if 27°C eq wri*y 7 
*z~ Lew meu-n*u-o then 4,7,1l,m,n,0; end if; end for; 


for %,j,l,m,n,o in [1..2] do tf w°A eg w7i*y J 
*z~ Lew meu -n*u-o then 4,7,1l,m,n,0; end if; end for; 
for %,j,l,m,n,o in [1..2] do tf wB eq w7i*y J 
*z~ Lew meu n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,j,l,m,n,o in [1..2] do tf wC eq wi*y J 
*z~ Lew meu-n*u-o then 4,7,1l,m,n,0; end if; end for; 


for 4,j,l,m,n,o in [1..2] do if u7A eq writy 7 
*z~ Lew meu-n*u-o then 4,7,1l,m,n,0; end if; end for; 
for %,j,l,m,n,o in [1..2] do tf uB eq wi*y J 
*z~ Lew meu n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,j,l,m,n,o in [1..2] do tf uC eq witty J 
*z~ Lew meu -n*u-o then 4,7,1l,m,n,0; end if; end for; 


for 4,j,l,m,n,o in [1..2] do if vA eq wt*y 7 
*z~ Lew meu-n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,j,l,m,n,o in [1..2] do if u"B eq wity GZ 
*z~ Lew meun*u-o then 4,7,1l,m,n,0; end if; end for; 
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for %,j,l,m,n,o in [1..2] do tf v~C eq wi*y J 
*z~ Lew meun*u-o then 4,7,1l,m,n,0; end if; end for; 


for 4,7,l,m,n,o in [1..2] do if A°2 eq writy7*271 
*xw meu -n*u-~o then 4,7,1l,m,n,0; end if; end for; 
for 4,7,l,m,n,o in [1..2] do if B°2 eq wri*y7*z71 
*xw-meu-n*u-o then 4,7,1l,m,n,0; end if; end for; 
for %,j,l,m,n,o in [1..2] do if C°2 eq writy Fez 
*xw-mku-n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,j,l,m,n,o in [1..2] do tf (A*B)°2 eq vw ity 7 
*z~ Lew mku-n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,j,l,m,n,o in [1..2] do tf (A*C) 74 eq witty 7 
*z~ Lew mtu n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,j,l,m,n,o in [1..2] do tf (C*B)"3 eq vw ity 7 
*z~ Lew meu -n*u-o then 4,7,1l,m,n,0; end if; end for; 
for 4,7,l,m,n,o0 in [1..2] do if (B*A*C*B*A*C*A*B*C) 
eq wz i*y~7¥*z- Lew mtu n*u-o then 7,7,1,m,n,0; end wf; 
end for; 


/* Here is a presentation for the mized extension of 2°6 by S_4.*/ 


G<au,y,2,W,U,U,4,b,c>:=Group<z,y,2,wW,u,v,4,b,c/“2°2,y°2,2°2, 
w°2,u°2,u 2, (2, y), (2,2), (x, w), (x2, u), (x, vu), (y,2), (y,w), (y,u), 
(y,u), (2,w), (zu), (2,u), (u,w), (u,v), (u,v), a~2=w, b“2=w,c~2, 
(axb) “2=w, (a*c) “4=wt*u, (c*b) “3, (b¥a*c*b *a*C#a*O*C) =UXU, DZ A=L*y, 
x b=x*xy*w,2°c=2, ya=y,y b=y,Y C=Z, Z-A=Z*U, 2 b=Y*Z,Z°c=y, 
w"a=w, w~b=w, WC=U, U a=U, U bD=WeU, UC=W, U"-A=U, VU b=U,U~C=U>; 

#G; 


/* now we show that G1 is tsomorphic to the mixed extension 
of 2°6 by S_4 given abvoe. */ 


f1,91,k1:=CosetAction(G, sub<G/Id(G)>) ; 
IsIsomorphic(g1,G1); 


/* Thus, G1 is isomorphic (2°6 :. S_4) */ 
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Appendix S 


MAGMA Code for Isomorphism 
Type of 2: 57 


S1:=Sym(6) ; 

ff:=S1!C1, 203, 5)(4, 6); 

gg:=S1!(1, 2)(3, 4) (5, 6); 

hh:=S1!(1, 3, 6)(2, 4, 5); 

H:=sub<S1/ff,g9,hh>; 
G<a,b,c,t>:=Group<a,b,c,t/a°2,b°2,c°3, (axb) “2, 
(a*(c~-1)) 72, (0*(c 7-1) *b*c), t°2, (t, a*d), (a*b*t) “4, 
(a*xt~c) “6, (c*t) “4, (b¥*c#*t) “7; 

f,G1,k:=CosetAction(G, sub<G/a,b,c>); 

#G1, #k; 

/* We will find the Isomorphism type of G1 = 10080 */ 
Center (G1); 

CompositionFactors (G1); 

NL:=NormalLattice (G1); 

NL; 

/* We will search for the largest Abelian subgroup 

of G1, NL[i], using the normal subgroup lattice NL */ 


for «4 in [1..7] do if IsAbeltian(NL[i]) then i; end if; 
end for; 


/* Thus, NL[2] is the largest Abelian subgroup of G1. 

We factor G1 by NL[2],and call it q. Since 

Center(G1) < NL[2], G1 is a mized extension of NL[2] by 
q, the factor group G1/NL[2]. We now find tsomorphism 
types and presentations of NL[2] and q. */ 
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/* We show below that NL[2] is tsomorphic to 2 */ 
ML [2]; 

m:=AbelLianGroup (GrpPerm, [2]); 
IsIsomorphic(m,NL[2]); 


/* NL[2] is generated by x given below. */ 

NL[2] eq subd<NL[2]/NL[2].2>; 

2:=NL[2].2; 

/* A presentation of NL[2] is fa/x2°2}.*/ 

/* We factor G1 by N[2] and find the generators of 
q a presentation for q.*/ 

q,ff:=quo<G1/NL[2]>; 

q; 

q eq sub<q/q.1,q.2,q.3,q.4>; 

Order( sub<q/q.1,q.2,94.3,q.4>); 

/* We show below that q is isomorphic to (S_7).*/ 


HH<a,b,c,d>:=Group<a,b,c,d/a°2,b°2,c°3,da°2, (axb) “2, 
(a*c~-1) “2, (b¥c~-1*b*c), (a*d*b) “2, (c~-1*d) “4, 
(d*¥a*xd*a*d*a*d*a*d*b), (c¥d*a*d*c~-1*d*a*d) “2, 
(a*xd*c*a*d*c*a*d*c*a*d*a*c ~-1*d*a*c~-1*d*c), 
(c*xaxd*axd*c ~-1*d*a*d*c ~-1*a*d*axc*d*c ~-1*d*c*d*a*d)>; 

#HH; 

f,h2,k:=CosetAction (HH, sub<HH/Id(HH)>); 

IsIsomorphic(h2, q); 

IsIsomorphic (Sym(7),q); 

/* We now see if the generators and relations of q can 
be expressed in terms of nonidentity elements of NL[2].*/ 

T:=Transversal (G1, NL[2]); 

q, ff :=quo<G1/NL[2]>; 

ff(T[2]) eq q-1; 

FFCTI3]) eg 4.2; 

FFI) eg 9.3; 

ff(TI5]) eq 4-4; 


A:=T[2]; 
B:=T[3]; 
C:=T[4]; 
D:=T[5]; 


/* we now determine the action of q on NL[2], 
and using Transversal of NL[2] instead of the elements 
of q and write the generatrs elements of (S_7) in terms of 2.*/ 


for 4 in [1..2] do if 2A eq wt then t; end if; end for; 
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for «~ in [1..2] do if w°B eq wt then t; end if; end for; 
for «~ in [1..2] do if w°C eq wt then t; end if; end for; 
for «~ in [1..2] do if xD eq wt then t; end if; end for; 
/* Here is a presentation for the mixed extension of 

2 by (S_7). */ 
G<a,a,b,c,d>:=Group<z,a,b,c,d/2°2,a°2,b°2,c°3,d°2, 

(a*xb) “2, (a¥c~-1) “2, (b¥c~-1*b¥c), (a*d*b) “2, (c~-1*d) “4 

, (d*¥axd*a*xd*a*xd*a*xd*d) , (c¥d*a*d*c ~-1*d*a*d) “2, 
(a*d*c*a*d*c*a*d*c*a*d*a*kc ~-1¥*d*a*c~-1¥*d*c), 

(cxa*xd*axd*c ~-1*d*a*d*c ~-1*a*d*axc*d*c ~-1*d*c*d*axd), 
La=2, 0° b=2, 2° c=2,2°d=x>; 

#G; 


/* now we show that G1 is tsomorphic to 

the semidirect product of 2 by (S_7) given abvoe. */ 
f1,91,k1:=CosetAction(G, sub<G/Id(G)>) ; 
IsIsomorphic(g1,G1); 

/* Thus, G1 is tsomorphic (2 : S_7) */ 
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